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ABSTBACT 


The  instruction  set  of  the  TI-59  Programmable  Calculator 
tears  a  close  similarity  to  that  of  an  assembler.  Though 
most  cf  the  calculator  instructions  perform  primitive  lata 
movement  and/or  sequence  control,  some  can  do  the  work  of 
small  high  level  language  procedures.  Regardless  of  this 
fact,  tc  design  and  debug  TI-59  programs  of  moderate  size 
can  te  mere  difficult  than  doing  “he  computations  them¬ 
selves.  Programming  in  a  higher  order  language  such  as 
BASIC  offers  many  advantages  over  calculator  code.  This 
report  presents  the  design  and  implementation  of  a  cross- 
compiler  which  translates  correct  BASIC  programs  into 
equivalent  TI-59  programs.  This  software  package  includes  a 
linker  which  maps  calculator  instructions  to  a  set  of 
magnetic  cards.  The  cards  are  then  used  tc  implement  a 
manually  operated  virtual  memory  system  for  the  calculator. 
This  expands  program  step  capacity,  and  permits  more  complex 
programs  tc  be  written  in  BASIC  language  for  translation 
into  TI-59  instr ucticrs. 
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Hand-held  programmable  calculators  provide  an  extremely 
portable  means  of  computation.  Designed  primarily  for 
small-scale  numerical  computation,  these  devices  are  limited 
by  their  small  memory  capacity,  slow  processing  speed,  and 
inanility  to  perform  symbol  manipulation.  These 

constraints,  however,  cannot  hide  the  programmable  calcula¬ 
tor's  usefulness  and  power  as  a  computational  tool.  The 
instruction  sets  of  these  machines  resemble  those  of  assem¬ 
blers.  Most  instruction  words  are  primitive  and  perform 
simple  data  movements  or  sequence  control.  Ye t,  seme 
specialized  instructions  do  the  work  of  small  high  order 
language  procedures.  Typical  examples  include  polar  to 
rectangular  coordinate  conversion,  trigonometric  functions, 
and  logarithmic  functions.  In  most  assembly  languages  these 
operations  must  be  constructed  from  primitive  instructions. 
Sven  with  these  added  features,  the  designing  and  debugging 
cf  calculator  programs  for  non-trivia  1  problems  often 
requires  an  expenditure  of  effort  which  conceals  the  useful¬ 
ness  cf  the  final  product  as  well  as  the  calculator. 

There  are  a  number  of  reasons  for  this  difficulty.  The 
lack  cf  a  sophisticated  display  mechanism  such  as  a  CRT 
prevents  the  user  from  viewing  more  than  a  single  data  item 
or  instruction  at  any  given  time.  Printing  devices  can  lend 
assistance,  yet  most  provide  little  more  than  a  means  of 
dumping  memory  contents.  Furthermore,  program  debugging  can 
be  very  difficult  if  the  only  error  diagnostic  is  a  single 
flashing  display  or  an  incorrect  result. 

Maximum  memory  storage  capacity  constrains  even  main¬ 
frame  computers.  One  solution  has  been  the  implementation 
of  virtual  memory,  whereby  a  relatively  limitless  on-call 
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secondary  store  is  used  to  back  up  the  primary  stor ace. 
Programmable  calculators  usually  have  secondary  storage  in 
the  form  of  magnetic  cards.  Normally,  these  cards  are  used 
as  archival  rather  than  on-call  storage.  The  instruction 
sets  of  calculators  are  generally  a  cross  between  assembler 
instructions  and  a  math  function  library.  Compared  tc  an 
assembler,  the  calculator  instruction  se+  is  small  and 
includes  cnly  the  most  basic  sequence  controls.  Though  it 
is  possible  to  build  more  sophisticated  control  constructs 
from  the  primitives,  such  endeavors  are  often  constrained  by 
storage  capacity.  As  a  result,  if  complex  programs  are  tc 
fit  into  memory,  it  becomes  necessary  to  learn  or  invent 
machine  dependent  ''tricks." 

The  programmer's  inability  to  use  meaningful  names  for 
variables  can  create  more  difficulties  during  calculator 
programming.  Numerical  register  indices  (a  form  of  absolute 
addressing)  must  be  used  to  reference  variables.  One  of  the 
major  advantages  of  assemblers  is  that  they  provide  for 
variable  naming.  while  composing  his  code,  the  calculator 
programmer  must  either  remember  the  register  indices  of  his 
variables  or  continuously  refer  to  his  own  written  symbol 
table  while  compcsing  code.  Both  methods  become  more  error 
prone  as  the  number  cf  variables  in  use  grows.  Programs  of 
any  substantial  computing  power  usually  .  equire  large 
numbers  cf  variables. 

The  problems  associated  with  calculator  programming  are 
many  cf  the  same  problems  which  plagued  experienced  program¬ 
mers  cf  large  scale  computers  in  the  past.  How  can  a 
beginner  be  expected  to  design  good,  sophisticated  programs 
for  a  pocket  calculator  if  it  car.  be  so  difficult  for 
someone  with  experience?  One  concludes  that  the  majority  cf 


The  Texas  Ir.str umenrs  TI-59  Programmable  Calculator  is 
one  cf  the  more  popular  models.  Its  value  as  a  powerful 
engineering  tool  is  indicated  by  its  use  at  the  U.S.  Naval 
Postgraduate  School  and  in  the  U.S.  Army  Field  Artillery. 
Yet,  sophisticated  programming  of  the  TI-59  suffers  from  the 
very  weaknesses  mentioned  earlier.  Why,  then,  should  there 
be  such  interest  in  this  device?  Perhaps,  the  best  answer 
to  this  guestion  is  provided  by  Hamming  (Ref.  1].  He  feels 
that  such  a  primitive  programming  machine  offers  the  user 
valuable  experience  because  it  is  easy  to  operate  and  allows 
the  beginner  direct  access  to  very  basic  computing  hardware. 
Sat,  he  warns  that  attempting  mastery  of  the  TI-59  language 
is  a  waste  of  time.  Cne  who  must  do  sophisticated  or  expen¬ 
sive  programming  for  this  calculator  should,  instead,  use  a 
cross-compiler  to  automate  and  reduce  his  effort.  This 
report  presents  the  design  and  implementation  of  cne  such 
cross-compiler  fcr  the  TI-5  9. 


II.  SOFTWARE  REQUIREMENTS 


A  systematic  approach  to  software  development  begins 
with  the  defining  of  general  requirements.  In  this  case, 
the  basic  design  goal  is  the  production  of  an  effective 
software  tool  which  will  simplify  program  development  and 
increase  memory  capacity  for  the  TI-59  Programmable 
Calculator.  Achievement  of  this  goal  should  result  in 
several  enhancements  to  the  utility  and  capability  of  the 
calculator.  There  will  be  an  increase  in  its  ability  to 
execute  larger  and  mere  sophisticated  software.  Most  compu¬ 
tations  which  can  be  programmed  in  BASIC  and  seme  existing 
SASIC  software  (which  may  require  minor  modifications  to  be 
explained  later)  will  become  as  portable  as  the  TI-59. 

Important  requirements  for  a  user-criented  language 
translation  system  should  include  that  it  be  easy  to  use  and 
easy  to  learn.  The  SASIC  programming  language  is  an  obvious 
choice  fer  the  source  language;  it  is  popular,  simple,  and 
easily  learned.  More  importantly,  many  BASIC  constructs  and 
key  words  are  similar  to  those  of  TI-59.  This  similarity 
and  the  fact  that  both  languages  are  line-oriented  and 
sequential  in  nature  greatly  facilitates  translation  between 
them . 

Many  versions  of  the  BASIC  language  currently  exist. 
Because  cf  its  availability  at  the  Naval  Postgraduate  School 
and  its  having  many  structured  control  flow  constructs, 
Waterloo  EASIC  Version  2.0  (WEASIC)  (Ref.  2],  was  chosen  as 
the  specific  source  language  to  be  implemented  by  this 
compiler.  Ihe  power  of  the  TI-59  compared  to  the  WEASIC 
language  places  restrictions  upon  the  set  of  WBASIC  commands 
which  can  be  translated.  The  specific  WBASIC  subset  imple¬ 
mented  is  deferred  tc  the  discussion  of  desian  issues  in  the 


next  chapter.  While  WBASIC  is  easy  to  learn,  it  should  De 
apparent  that  subsetting  the  language  will  introduce  excep¬ 
tions  and  restrictions  which  will  tana  to  complicate 
learning  for  the  novice  and  confuse  the  veteran.  It  is 
desirable  tc  maintain  as  few  exceptions  as  possible,  and  tc 
require  that  restrictions  be  clean  and  obvious.  A  construct 
should  be  implemented  as  completely  as  possible  (wirhir. 
obvious  limitations,  such  as  the  file  handling  or  alphanu¬ 
meric  features)  or  net  at  all. 

Provision  for  error  detection  and  debugging  is  another 
important  requirement  of  a  language  system.  The  intended 
use  of  tfcis  initial  system  will  be  as  a  supplement  to  an 
existing  WEASIC  interpreter  or  compiler.  As  such,  the 
cross-cc rapiler  will  assume  error-free  source  program  input. 
The  only  requirement  for  error  detection  will  be  for  the- 
compilar  tc  recognize  words/constructs  which  are  not  imple¬ 
mented,  but  which  are  ordinarily  legal  WBASIC  commands. 
Debugging  of  TI-59  programs  is  so  much  more  difficult  than 
debugging  of  higher  level  language  programs  that  it  is 
reasonable  tc  assume  that  a  user  would  prefer  to  debug  his 
WBASIC  pregram  using  the  WEASIC  interpreter/co-mpiier  avail¬ 
able.  Cnee  the  pregram  is  logically  correct,  it  may  be 
cros s-ccmpiled  to  TI-59  code,  at  which  time  it  will  be 
checked  for  subset  and  calculator  capacity  errors. 

The  TI-59' s  designers  have  provided  it  with  capabilities 
which  can  be  roughly  equated  to  the  power  of  higher  level 
language  routines.  Interchangeable  Solid  State  Software 
(trademark  cf  Texas  Instruments,  Inc.)  modules  allow  on-line 
access  tc  utility  pregram  libraries.  Program  steps  required 
to  call  them  and  the  exclusive  reservation  of  particular 
registers  are  usually  the  only  storage  costs  paid  for  use  of 
these  library  programs.  It  is  required  that  the  power  of 
these  modules  be  harnessed  by  the  translator  under  design. 
Additionally,  other  sophisticated  features  of  the  calculator 
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should  fce  exploited  whenever  possible  in  order  to  xaxisize 
and  enhance  advantages  gained  by  high  level  language 
programming . 

The  linker  will  statically  link  the  steps  cf  TI-59 
programs  so  that  it  will  not  be  necessary  fcr  a  complete 
program  tc  reside  in  calculator  step  storage  during  execu¬ 
tion.  Since  the  swapping  in  and  out  of  memory  modules  in 
the  form  of  magnetic  cards  can  become  guite  complicated  for 
a  running  process,  it  will  be  necessary  to  keep  this  manual 
system  as  transparent  to  the  user  as  can  be  reasonably 
expected.  The  fact  that  the  calculator  has  a  single  item 
display  window  and  associated  register  will  certainly 
restrict  the  degree  cf  transparency  which  might  otherwise  be 
possible. 

A  system  must  perform  static  linking  if  it  exceeds 
program  storage  available  to  it  during  execution.  This 
program  will  be  segmented  into  overlays  according  to  the 
size  cf  memory  available  to  it  and  the  portions  of  code  it 
needs  to  execute  at  any  given  time.  That  a  program  be 
segmented  sc  as  to  minimize  overlay  swapping,  must  fce  an 
additional  explicit  requirement  cf  a  linker  whose  overlay 
swapping  will  be  supervised  manually.  It  is  assumed  that  we 
cannot  significantly  affect  the  execution  speed  of  the 
calculator.  Thus,  the  intent  of  the  minimization  require¬ 
ment  should  be  obvious — suppress  pregram  segmentation  which 
will  tend  tc  involve  human  thrashing. 

The  system  source  code  must  be  portable.  In  the 
simplest  case,  it  is  desired  that  the  unmodified  source  cede 
fce  capable  cf  utilization  or.  any  machine  which  possesses  the 
resources  tc  store,  compile,  and  execute  it.  5ecauss  of 
operating  system  variations  in  such  conventions,  as  file 
naming  and  handling,  transfer  and  processing  of  the  sourc° 
code  in  urmedified  ferm  cn  another  machine  (with  operating 
system  different  from  that  on  which  it  is  developed)  will  be 
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very  unlikely.  However,  the  need  for  charges  should  te  kept 
to  a  minimum  and  should  be  localized. 

Finally,  as  with  most  all  major  software  projects,  aair- 
tanence  and  readability  are  considered  paramount.  Even 
after  its  completion,  the  system  will  certainly  contain 
undiscovered  bugs,  areas  to  improve,  and  rcom  for  additions. 
Furthermore,  development  of  a  large  prototype  software 
system  requires  a  great  deal  of  careful  planning  for  addi¬ 
tion  and  modification.  Adherence  to  the  programming 
principles  which  support  both  readability  and  maintenance  is 
absolutely  necessary.  Additionally,  detailed  documentation 
cf  the  source  code  will  supplement  and  assist  in  achieving 
these  goals. 


III.  PRELIMINARY  DESIGN 

After  requirements  definition  the  next  step  ir.  the  soft¬ 
ware  engineering  process  is  the  formulation  cf  a  preliminary 
design.  Sound  software  design  principles  are  applied  to 
previously  stated  requirements  to  construct  the  framework 
for  a  software  solution.  It  is  during  this  phase  of  design 
that  many  cf  the  most  critical  decisions  are  made.  These 
decisions  may  be  based  upon  a  variety  cf  considerations, 
each  cf  which  directly  impacts  the  software  organization. 
These  decisions  and  the  resulting  organization  are  explored 
in  this  chapter. 

A.  PBELIMI  NARY  DESIGN  DECISIONS 

Before  a  design  can  be  formalized  the  engineer  must 
investigate  all  design  options  and  tools  available.  The 
following  section  summarizes  the  major  decisions  which 
strongly  influenced  and  constrained  many  aspects  of  the 
project.  With  most  large  software  projects,  time  is  an 
extremely  critical  resource.  As  such,  its  impact  upon 
preliminary  design  considerations  is  usually  quite  strong. 
Keeping  cn  schedule  is  generally  cost  affective.  It  will  be 
readily  apparent  that  time  played  a  key  role  in  this  design 
also . 

1  •  Cross-Compiler 

The  fundamental  considerations  which  most  influenced 
design  of  the  BAX59  (EAsic  X-compiier  for  the  TI-59)  cross- 
compiler  were  the  method  of  parsing  it  would  use,  and  the 
language  (s)  in  which  it  would  be  written.  The  availaoility 
cf  several  versions  of  Pascal  at  the  Naval  Pcsraraduate 


School  and  the  working  experience  of  the  authors  of  this 
report  with  Pascal  were,  perhaps,  the  overriding  reasons  for 
its  early  selection  as  the  design  language.  In  addition, 

the  extensibility,  strong  typing,  and  block  structure  of 
Pascal  support  modularity,  readability,  and  maintainability. 
It  was  at  this  point  that  the  parsing  technique  became  an 
issue.  The  decisions  were  reduced  to  a  selection  between 
two  alternate  approaches.  Berkeley  Pascal  was  available  on 
a  Digital  Equipment  Corporation  VAX-1 1/780  with  Bell 
Laboratories'  Unix  operating  system.  The  Unix  system 
included  software  tccls  LEX  and  YACC  which  are  capable  of 
automatically  generating  a  lexical  scanner  and  LAIR  (1) 
parser  from  an  input  grammar.  YACC  allows  the  user  to 
specify  code  generating  actions  which  will  be  executed  as 
the  prcductions  cf  the  grammar  are  processed.  The  alterna¬ 
tive  system  was  entirely  International  Business  Machines 
Corpcraticn.  IBM  Pascal  VS  was  available  or  an  IBM-3033AP 
with  VM/370  operating  system.  This  system  does  not  have  the 
tools  fcr  automatic  generation  cf  a  compiler  front  end. 
Instead,  a  scanner,  recursive  descent  parser,  and  code 
generator  would  have  to  be  developed  from  scratch. 

While  the  prcspect  of  automating  the  development  of 
BAX59  seemed  more  time  efficient  and  less  trouble,  it  turns 
out  that  subtle  problems  involved  are  many.  A  compiler 
constructed  using  LEX  and  YACC  is  generated  in  the  C 
language,  a  kind  of  structured  assembly  language.  while  it 
is  possible  to  link  object  coda  compiled  from  Berkley  Pascal 
to  object  code  compiled  from  the  Z  language,  the  mixing  of 
source  code  tends  to  destroy  the  portability  and  maintain¬ 
ability  required  cf  the  system.  Modifications  or 
improvements  to  the  finished  system  could  only  be  made  if 
the  programmer  were  familiar  with  Pascal,  C,  and  their 
interface.  Likewise,  a  machine  would  be  required  to  have 
both  C  and  Pascal  compilers  in  order  to  process  the  source 
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code  fcr  use.  Thus,  a  recursive  descent  compiler  m  pure 
Pascal  vs  was  the  alternative  selected.  It  quickly  o-came 
apparent  that  a  recursive  descent  compiler  would  be  far 
easier  he  develop  in  pure  Pascal.  Using  a  block  structured 
language  which  supports  recursion,  explicit  use  of  parse 
tables  and  stacks  is  unnecessary.  The  activation  record 
stack  resulting  from  the  recursive  procedure  calls  implic¬ 
itly  heias  the  same  information  stored  in  a  parsing  stack. 
The  advantage  of  using  Pascal  VS  is  the  powerful  debugging 
tools  which  this  language  system  provides.  While  8AX59  was 
written  in  Pascal  VS,  to  the  greatest  extent  possible  only 
those  constructs  and  features  which  are  standard  Pascal 
[Ref.  3]  were  used. 

Another  major  consideration  involved  the  identifica¬ 
tion  cf  the  particular  WBASIC  language  subset  which  could  be 
translated  to  TI-59.  Both  feasibility  ana  time  constrained 
this  selection.  Commands  and  functions  which  primarily 
perform  character  string  and  file  manipulation  were  quickly 
eliminated.  The  TI-59  is  weak  in  aiphanumerics  and  its 
storage  capacity  is  too  small  to  consider  any  concept  cf 
file  handling. 

The  WBA5IC  language  is  rich  with  matrix  and  array 
functions  and  constructs.  The  overhead  and  difficulty  cf 
implementing  these  operations  would  outweigh  any  programming 
benefits  they  could  provide.  As  a  result,  functions  and 
constructs  involving  all  composite  data  types  were  ruled 
out.  With  only  slight  overhead  ,  it  is  possible  tc  imple¬ 
ment  limited  size,  single-dimensional  arrays.  However,  time 
restrictions  required  that  this  concept  remain  a  suggested 
improvement . 

In  order  to  simplify  the  translation  of  a  WEASIC 
source  program,  it  was  decided  to  allow  the  3AX59  scanner  to 
recognize  all  WEASIC  keywords  as  reserved  words.  This 
provided  a  clear  distinction  between  real  errors  and 


occurrences  of  legal  keywords  which  had  passed  through  tha 
WBASIC  interpreter  but  which  had  not  been  i mplemented  in  the 
subset.  Otherwise,  legitimate  WBASIC  keywords,  not  imple¬ 
mented  in  EAX59,  would  be  treated  and  translated  as 
identifiers.  This  obvious  inconsistency  might  be  very 
difficult  fcr  the  user  to  detect  as  an  error.  If  should  be 
noted  that  WBASIC  function  names  are  net  handled  in  this 
way.  The  reason  is  that  the  user  can  extend  the  EAX59 
built-in  function  library.  Further  discussion  of  this  idea 
is  deferred  to  Chapter  IV. 

Appendix  A  is  a  summary  of  the  if  BASIC  keywords  and 
functions  which  have  been  i  irplemented  in  BAX 59  version  1.0. 
There  are  three  general  categories  of  keywords  recognized  by 
this  cross-compiler.  Command  reserved  words  are  implemented 
WBASIC  keywords  which  indicate  the  start  of  a  particular 
WBASIC  construct  or  statement.  Supplemental  reserved  words 
are  implemented  WBASIC  keywords  which  cannot  be  used  to 
begin  a  construct  cr  statement,  but  which  can  be  used 
(cpticnally  at  times)  within  same  to  guide  the  interpreter. 
Unimplemented  reserved  words  are  all  WBASIC  keywords  which 
have  not  teen  implemented  in  BAX59.  The  use  of  this  last 
category  cf  reserved  words  will  result  in  a  fatal  subset 
error  during  translation. 

2 .  linker 

Ir.  designing  the  linker  three  major  problems  arose. 
This  first  problem  involved  the  fact  that  the  linker  is 
mainly  a  postprocessor  of  compiled  data.  As  such,  the 
linker  is  highly  dependent  on  the  compiler  portion  cf  the 
project.  If  this  dependency  were  allowed,  then  most  work  on 
the  linker  would  have  to  be  deferred  until  the  compiler  was 
formalized  and  ir.  the  implementation  phase  of  design.  The 
second  problem  involved  settling  on  a  strategy  to  segment 
compiled  cede  according  to  the  software  requirement  to 


minimize  magnetic  card  reaas.  Iwo  courses  cf  action  were 
discovered,  each  of  which  had  advantages  over  the  other. 
The  third  problem  involved  hew  prompting  procedures  were  to 
be  used  to  ensure  proper  execution  of  the  segmented  program-. 
Procedures  were  required  to  be  user-friendly  and  easily 
understood. 

In  the  first  problem  it  was  decided  to  make  the 
coupling  between  the  linker  and  the  compiler  as  loose  as 
possible  thereby  reducing  the  dependency.  This  was  achieved 
by  defining  a  specific  "third  party"  interface  between  the 
compiler  and  linker.  This  interface  was  defined  to  be  a 
text  file  containing  the  four  coded  pieces  of  information 
required  by  the  linker  to  accomplish  its  task. 

This  arrangement  had  several  advantages  ar.d  disad¬ 
vantages.  One  advantage  was  that  it  allowed  for  the 
parallel  development  cf  the  linker  and  the  compiler.  Since 
the  interface  was  well  defined,  r.o  other  information  needed 
to  pass  between  the  linker  and  the  cross-compiler.  Ey  using 
this  system,  interfacing  considerations  such  a  naming 
conventions  were  nil  since  each  process  was  totally  indepen¬ 
dent.  Another  advantage  concerned  future  implementations. 
It  was  envisioned  that  future  versions  of  the  system  would 
be  implemented  cn  microcomputers.  3y  having  the  project 
divided  in  half  both  logically  and  physically  it  would  be 
easily  adaptable  to  the  more  constricting  memory  require¬ 
ments  of  the  microcomputer  environment.  These  two 
advantages  alone  outweighed  the  only  major  disadvantage  of 
the  decision.  The  disadvantage  is  that  the  linker  needed  to 
be  able  tc  regenerate  the  compiled  linked  TI-59  cede  struc¬ 
ture  which  was  originally  produced  by  the  compiler.  As  it 
turned  out,  this  penalty  was  small  when  compared  tc  the 
overall  size  of  the  finished  linker. 


The  second  problem  was  a  very  difficult  problem  -.0 
solve.  Cue  to  the  United  size  of  the  calculator  memory  and 
the  cumbersome  nature  ci  the  magnetic  card  backing  storage 
system,  the  software  requirements  dictate  the  minimization 
cf  magnetic  card  reads.  This  requirement  mandated  th® 
following  decision:  a  code  segment-break  cannot  occur 

within  a  backward  loop.  It  would  be  preposterous  tc  read  a 
magnetic  card  every  time  a  program  encountered  a  segment 
break  within  a  thousand  iteration  backward  loop.  This  lead 
to  the  following  hierarchy  cf  segmentation  rules.  First 
priority,  segmentation  nay  not  occur  within  a  backward  loop. 
Second  priority,  maintain  invoked  subroutines  with  the 
invoking  code.  Third  priority,  keep  adjacent  sequential 
code  together.  To  implement  these  decisions  it  became 
necessary  to  examine  the  control  flow  structure  of  an  input 
program. 

The  decision  as  to  how  to  accomplish  this  control 
flow  examination  is  the  foundation  of  linker  design. 
Basically,  two  options  were  determined.  One  dealt  with  the 
input  program  as  a  whole  and  the  other  dealt  with  it  as  a 
series  of  sequential  parts. 

In  dealing  with  the  input  program  as  a  whole,  the 
design  algorithm  would  check  to  see  if  the  program  met  the 
memory  limitations.  If  it  did  not  then  the  algorithm  would 
examine  the  control  structure  and  determine  where  to  make  an 
optimal  break,  that  is,  a  break  in  a  sequential  portion  of 
the  program.  It  would  then  check  each  new  segment  tc  ensure 
that  they  complied  with  the  memory  restriction.  The  algo¬ 
rithm  would  continue  until  all  segments  met  the  memory 
requirements. 

In  the  other  method  the  program  was  decomposed  into 
a  series  of  sequential  segments  (a  sequential  segment  is 
defined  as  a  segment  which  dees  not  contain  a  backward  loop 
reference  tc  any  instruction  other  than  possibly  to  the 
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first  instruction  of  the  segment)  .  The  algorithm  first 
determined  the  sequential  segments.  Next  the  algorithm 
combined  adjacent  segments  until  the  memory  limit  was 
encountered.  At  this  point  a  segmentation  occurred.  ThP 
memory  limits  were  reset  and  the  combining  process  continued 
until  another  limit  was  encountered  or  the  whole  sequen¬ 
tially  segmented  input  program  was  processed. 

The  second  method  was  selected  for  two  reasons.  The 
first  reason  is  that  the  first  method  eventually  required 
the  evaluation  of  code  on  a  small  segment  level  much  like 
the  second  to  determine  a  suitable  segmentations  point. 
Rather  than  do  this  and  more,  it  was  decided  to  just  eval¬ 
uate  the  small  segments  and  build  up  rather  than  down.  The 
second  reason  was  that  the  second  method  lent  itself  to  a 
recursive  solution  during  the  recombination  process.  The 
recursive  solution  greatly  reduced  the  length  and  complexity 
cf  the  segmentation  cede. 

The  third  problem  involved  deciding  upon  a  method 
for  accomplishing  the  prompting  of  the  user.  One  method 
dealt  with  assigning  coded  prompt  numbers  of  short  length  to 
be  built  into  the  code.  The  other  method  involved  building 
larger  self-explanatory  prompts  into  the  the  code.  The 
second  choice  was  selected.  This  was  done  to  reduce  the 
number  cf  instruction  references  that  a  user  might  have  to 
make  during  the  execution  of  the  generated  calculator 
program.  This  was  in  keeping  with  the  requirement  to  make 
the  system  user-friendly. 

B.  PRELIMINARY  DESIGN  ORGANIZATION 

Thus  far  th<=  system  design  space  has  been  narrowed  to 
the  design  language,  source  language  subset,  and  the  general 
techniques  for  compilation  and  linking.  Organization  of  the 
software  into  functional  categories  may  now  begin.  This 
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next  phase  of  development  is  characteriz  ed  by  a  mere 
specialized,  yet  still  preliminary  consideration  cf  system 
components.  It  shcuid  be  apparent  by  now  that  a  natural 
division  into  two  major  functional  components,  cross- 
compiler  and  linker,  has  been  assumed  since  conception  of 
the  system.  For  a  two-man  design  team,  this  partitioning 
appeared  to  have  the  greatest  potential  for  success.  It 
allowed  the  simultaneous  development  of  two  independent 
system  components  of  lew  coupling  [2ef.  4:  p.  85]  and  high 
cohesion  [Ref.  4:  p.  106],  The  result  of  mis  separation 
was  a  minimization  cf  programmer  interaction,  maximization 
of  work  time  efficiency,  and  simplification  of  iTtsrfacing. 
The  remainder  of  this  section  outlines  the  preliminary 
design  and  organization  of  the  cross-compiler,  linker,  an  1 
the  direct  interface  between  them. 

1 .  Cross-Compiler 

The  common  ferm  of  all  versions  cf  BASIC  language 
can  be  characterized  as  imperative,  lir.e-oriented,  and 
sequential.  The  design  of  BAX59  is  based  upon  this  fact. 
Each  WEASIC  line  is  parsed,  beginning  to  end,  by  recursive 
descent.  Equivalent  TI-59  code  is  generated  for  each  line 
concurrently  with  the  parsing  operation.  This  means  that 
EAX59  will  successfully  translate  a  sequence  of  syntacti¬ 
cally  correct  yet  meaningless  W  BASIC  statements  into 
equivalent  TI-59  code.  However,  the  TI-59  code  will  be  as 
meaningless  as  the  source  code.  For  this  reason,  it  is 
recommended  that  the  user  successfully  execute  his  WEASIC 
source  program  using  a  WBASIC  interpreter  (or  compiler/ 
loader)  prior  to  translation  with  BA X 59 . 

A  lir.e-oriented  view  of  the  source  code  provides 
several  advantages  to  the  design.  First,  there  is  a  direct 
sequential  ccrrelaticn  between  the  original  source  orogram 
and  the  translated  TI-59  code.  As  will  be  seen  later,  this 
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allows  easy  management  cf  the  generated  code  and  ins 
ated  data.  Second,  the  parse  driver  r  our  ins  can  be  a  fairly 
simple  loop,  since  lines  are  parsed  rc  end  of  line  one  at  a 
time  until  the  end  of  the  source  file.  Third,  viewing  the 
source  as  a  sequence  of  independent  pieces  greatly  facili¬ 
tates  an  iterative  enhancement  approach  [Ref.  5]  to  the 
progressive  development  cf  EAX59.  This  approach  virtually 
guarantees  a  working  prototype  throughout  the  coding  phase, 
and  supports  both  reliability  and  maintainability. 
Modifications  can  be  quickly  tested  within  the  context  of 
the  entire  compiler  system  to  date.  Upon  completion,  the 
programmer  tends  to  have  greater  confidence  in  his  product, 
because  a  great  deal  cf  testing  has  already  beer,  conducted. 

EAX59  was  temporally  organized  into  three  major 
functional  sections:  initialization,  translation,  and  reso¬ 
lution.  The  primary  operations  performed  by  initialization 
involve  setting  up  data  structures  and  initializing  variacle 
values.  There  are  three  major  data  structures  manipulated 
by  the  translation  section:  the  reserved  word  table,  the 

symbol  table,  and  the  code  data  structure.  Conceptual  sub¬ 
divisions  of  this  section,  namely  the  scanner,  the  parser, 
and  the  cede  generator,  manage  each  database  respectively. 
While  the  scanner  is  a  separate  routine  by  itself,  the 
parser  and  code  generator  are  not  as  separately  defined. 
These  functions  are  actually  performed  concurent ly  by  a  set 
of  mutually  recursive  procedures  under  the  direction  cf  the 
main  driver.  This  driver  calls  the  correct  subprogram  into 
execution  as  its  correspon ding  W3A3IC  construct  is  recog¬ 
nized.  Cnee  translation  has  beer,  completed,  the  resolution 
section  processes  the  generated  code  into  a  fora  suitable 
for  final  output.  This  includes  label  insertion,  peephole 
cpti mizaticn ,  and  absolute  address  resolution. 
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The  linker  was  organized  into  three  phases.  The 
design  cf  these  phases  were  the  direct  results  cf  the 
preceeding  design  decisions  made  in  the  preliminary  phase. 

The  first  phase  is  the  direct  result  of  the  loose 
coupling  between  the  linker  and  compiler  and  the  decision  tc 
combine  small  sequential  segments  to  form  memory-size 
constrained  segments.  It  is  the  preprocessor  phase.  This 
phase  processes  the  interface  input  file  and  reconstructs 
the  compiled  linked  cede  structure.  In  addition  the  prepro¬ 
cessor  determines  the  sequential  segments  of  cede  and 
constructs  an  internal  data  table  called  the  segment  fable 
which  is  used  by  the  second  phase,  the  segmentation  phase. 
The  segmentation  phase  utilizes  the  recursive  algorithm  tc 
recombine  sequential  code.  The  postprocessor  phase  is  the 
result  of  output  design  decisions.  This  phase  inserts  the 
prompting  cede  and  develops  the  segmented  code  lists  to  be 
output  tc  the  user.  It  then  produces  the  code  in  a  text 
format  together  with  specific  instructions  as  to  its  use. 

3.  Direct  Interface 


The  design  organization  is  built  around  the  loosely 
coupled  compiler  and  linker.  This  coupling  is  made  possible 
through  the  rigid  definition  of  the  interface  text  file. 
The  organization  of  this  text  file  is  critical  to  the  design 
and  will  te  described  in  more  detail. 

The  text  file  is  the  only  direct  transmittal  of  data 
between  compiler  and  linker.  Four  pieces  cf  data  are  trans¬ 
mitted.  They  are  the  following:  a  number  signifying  the 
next  register  available  for  use;  generated  code  list  in  a 
numeric  formatted  form;  text  containing  DAT  A/RSAD  informa¬ 
tion;  and  text  containing  the  mapping  of  TI-59  registers  to 
EASIC  varibles.  Each  piece  of  information  is  preceeded  by  a 


$XXX  in  the  first  column  where  XXX  is  a  number.  This  simple 
format  enables  the  linker  to  easily  locate  the  correct: 
information  and  process  it  accordingly.  Since  this  is  the 
cnly  explicit  interface,  the  compiler  and  linker  are  net  as 
dependent  on  each  other  as  they  would  have  been  in  a  closely 
coupled  system. 


IV.  DETAILED  DESIGN 


The  source  code  contained  in  Appendices  C  and  D  provides 
high  resolution  understanding  of  the  system.  However,  in 
order  to  provide  rationale  behind  design  issues  for  a 
language  system  comprised  of  almost  10,000  lines  cf  code  and 
comment,  discussions  cf  some  detail  are  in  order. 

It  is  net  our  intention  to  explain  everything.  What  we 
wish  tc  do  in  this  chapter  is  to  introduce  design  details 
and  strategies  of  the  more  important  concepts  and  components 
in  the  system.  This  will  serve  to  illustrate  software  engi¬ 
neering  and  how  it  is  used  in  this  project. 

Upon  the  completion  of  preliminary  design,  the  detailed 
design  is  begun.  It  is  during  this  phase  that  the  actual 
details  cf  full  implementation  are  defined  and  laid  cut 
prior  to  coding.  Categorized  under  cross-compiler  and 
linker,  the  general  format  for  the  sub-sections  of  this 
chapter  will  include  an  informal  solution  strategy  for  a 
specific  design  problem,  followed  by  a  discussion  of  the 
major  data  objects  and  procedures  which  manipulate  those 
objects.  Where  appropriate,  inter-procedure  interfacing 
criteria  are  outlined.  In  several  cases,  significant  prob¬ 
lems,  their  solutions,  and  possible  system  improvements  are 
discussed.  The  last  section  presents  implicit  interface 
design  which  impacts  greatly  on  the  system. 

A.  C  BOSS -COMPILER 

The  fundamental  design  of  3AX59  is  a  finite  state 
machine  driven  by  a  main  loop.  Once  values  and  data  struc¬ 
tures  have  been  initialized,  program  control  enters  the  main 
loop  which  scans,  parses,  and  generates  TI-59  cods  for  one 
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W3ASIC  source  line.  At  the  end  of  line,  the  loop  checks  for 
end  cf  scurce  file.  As  long  as  the  end  of  file  is  not 
detected,  the  main  loop  repeats  its  processing  cf  each 
succeeding  line  cf  scurce  code.  When  end  of  file  is  found, 
control  exits  the  main  loop  and  post- processing  begins  on 
the  generated  TI-59  code.  This  includes  insertion  of 
suspended  code  data,  optimization,  address  resolution,  and 
final  output  of  code  and  associated  data. 

The  entire  cross-compilation  process  is  broker,  down  into 
15  functional  areas.  These  are  outlined  by  the  contour 
diagram  in  Figure  4.1  Note  that  solid  lines  indicate  actual 
procedures  (P/)  or  functions  (F/)  ,  while  dotted  lines  only 
indicate  logical  association.  Although  these  areas  often 
depend  upon  one  another,  the  particular  services  performed 
by  each  differ  enough  to  allow  independent  analysis.  Were 
it  net  for  limitations  imposed  by  the  Pascal  language,  many 
more  procedures  and  functions  would  have  been  tightly  pack¬ 
aged  in  order  to  hide  implementation  details  between 
functional  areas.  What  follows  is  a  survey  of  the  major 
functional  areas  of  EAX59  and  the  design  details  for  each. 

1  •  Initialization 

In  the  interest  of  execution  time  efficiency  all 
run-time  actions  which  required  completion  prior  to  the 
start  of  parsing  are  incorporated  into  procedure  INITIALIZE. 
As  a  result,  some  variables  and  databases  which  would  other¬ 
wise  have  been  local  to  their  respective  procedures, 
required  globalization.  One  particular  example  is  the 
reserved  word  table.  This  data  structure  is  built  of  data 
supplied  from  outside  the  program  in  file  RWTELF.  Since  the 
reserved  words  contained  in  this  file  need  only  be  leaded 
cr.ce  (at  the  start  of  execution)  ,  there  was  no  good  reason 
to  place  them  into  procedure  SCAN,  which  is  called  often  by 
parse  routines.  While  it  would  have  been  possible  to  use  a 
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Figure  4.1  Cross-Compiler  Contour  (PROGRAM  BAX59)  . 


boolean  switch  to  detect  the  initial  call  to  SCAN  and  subse¬ 
quently  generate  the  reserved  word  table  at  this  first  call, 
this  would  have  increased  the  coupling  between  nodules, 
loading  the  reserved  word  table  from  outside  the  program 
cffers  several  advantages.  First,  changes  to  the  reserved 
word  table  can  be  made  easily  (this  process  will  be 
discussed  when  the  scanner  is  considered) .  Second,  the  user 
can  check  one  file  (BWTBLF)  in  order  to  see  the  reserved 
words  recognized  by  EAX59.  Third,  the  loading  routine  dees 
not  need  tc  know  the  words  themselves,  only  the  name  and 
format  of  the  file  in  which  they  reside. 

Built-in  functions  are  also  loaded  by  procedure 
INITIALIZE.  This  operation  actually  requires  two  ordered 
steps.  First,  the  symbol  fable  must  be  created.  Second, 
function  recognition  and  generation  data  is  read  from 
cutside  files  (BIFNCF  and  BIFNLF)  and  the  symbol  fable 
management  routines  are  used  to  put  this  data  in  the  table. 
Loading  the  built-in  functions  by  using  the  same  routines 
which  the  parser  will  use  to  manage  the  symbol  table, 
ensures  table  consistency  and  promotes  readability.  This 
approach  has  been  taken  as  often  as  possible  in  designing 
the  cross-compiler. 

The  complexity  of  the  above  initialization  processes 
as  well  as  the  the  TI-59  keycode  text  (CTEXTF)  leading 
process  required  that  these  operations  be  abstracted  into 
individual  subprograms.  However,  procedure  INITIALIZE 
parferms  cany  other  pre-corapilaticn  activities  which  could 
be  performed  sequentially.  Probably  the  most  important  of 
these  activities  is  the  simple  initialization  cf  variacle 
values.  The  importance  of  this  task  is  elevated  by  a 
sencus  hole  in  the  Pascal  VS  implementation.  The  Pascal  VS 
compiler  will  not  detect  the  failure  to  initialize  a  vari¬ 
able  value  prior  to  its  use.  what  is  worse,  random  values 
which  exist  in  pointer  references  or  other  variable  storage 


areas  will  be  used  as  is,  whether  they  were  out  there  cy  the 
user  or  not.  As  a  result,  failure  to  initialize  values  was 
a  major  source  of  error  during  development  of  3AX59.  These 
types  of  errors  tended  to  be  sxtremely  difficult  to  debug, 
since  they  often  surfaced  late  and  usually  in  modules  long 
thought  tc  be  robust. 

In  summary,  procedure  INITIALIZE  loads  all  informa¬ 
tion  which  will  re  needed  by  the  translation  and  resolution 
stages,  constructs  ccnvenie r.ces  data  such  as  character  sets, 
assigns  starting  values  to  all  variables  and  pointers. 

2 .  Scanner 

At  the  lowest  level  of  abstraction  within  the  trans¬ 
lation  component  of  EAX59  is  the  scanner,  procedure  SCAN. 
This  single,  self-contained  subprogram  is  basically  designed 
on  three  important  concepts.  First,  the  scanner  is  itself  a 
finite  state  machine.  Second,  with  the  exception  of  proce¬ 
dure  INITIALIZE  and  some  system  constants,  its 
implementation  is  transparent  to  the  rest  of  the  cross- 
compiler.  Third,  the  database  which  it  uses  for  token 
recognition  is  simple,  time  efficient,  and  general. 

The  state  machine  logic  cf  procedure  SCAN  provides 
knowledge  cf  token  streams  in  free  format  and  nothing  more. 
Its  primary  job  is  to  read  the  source  file  character  by 
character  in  order  tc  isolate  and  recognize  single  tokens. 
However,  procedure  SCAN  is  designed  to  do  much  more.  First, 
it  reads  and  converts  line  numbers.  It  also  fills  as  neces¬ 
sary  the  line  buffer  and  accumulator,  the  data  structures 
which  store  the  line  and  token  currently  being  scanned 
respectively.  The  scanner  also  detects  the  end  of  a  source 
file  which  has  no  explicit  WBASIC  "END”  statement.  This 
allows  a  more  graceful  conclusion  to  what  might  otherwise  be 
an  abrupt  exit. 


Two  ether  functions  performed  by  the  scanner  will 
illustrate  its  transparency  to  rhe  rest  of  the  cross- 
compiler.  These  are  recognition  of  the  end  of  a  line  and  of 
continuation  lines.  Procedure  SCAM  reads  and  leads  the  line 
buffer  (LINEtJF)  with  a  new  line  of  source  text  each  time  the 
end  of  line  character  {•' 3M)  or  continuation  line  character 
("&")  is  feund.  The  only  difference  is  that  the  end  of  line 
token  number  must  be  passed  up  to  the  parsing  routines  so 
that  the  main  loop  will  knew  when  it  has  parsed  one  entire 
line.  Cn  the  ether  hand,  the  continuation  character  can 
remain  invisible  to  the  parser,  which  views  only  whole 
source  lines. 

As  mentioned  before,  the  database  used  by  procedure 
SCAM  is  the  reserved  word  table.  Although  referred  to  as  a 
table,  tbs  internal  representation  of  this  database  is  actu¬ 
ally  three  coordinated  arrays  constructed  from  the  3 WTELF 
file  by  procedure  IMITIALIZ2.  These  arrays  are  used  to 
compare  the  characters  of  a  token  in  the  accumulator  tc  the 
characters  cf  reserved  words.  The  simplicity  and  efficiency 
of  this  comparison  is  illustrated  in  Figu-^  4.2,  which 
depicts  a  condensed  schematic  of  the  arrays.  Mote  that  the 
characters  in  the  RWCHAR  array  are  arranged  in  erdsr  cf 
increasing  word  length.  A  reserved  word  look  up  is  based 
upon  the  length  of  the  word  in  the  accumulator.  Comparison 
begins  at  the  first  character  cf  the  first  word  in  the 
RWCHAR  array  which  matches  the  length  of  the  token  in  the 
accumulator.  Comparison  ends  when  either  all  characters  in 
the  accumulator  match  a  string  in  the  RWCHAR  array,  or  when 
the  characters  cf  all  words  of  a  given  length  have  been 
compared  to  the  accumulator  without  success. 

The  RWWORD  array  references  the  start  index  cf  each 
word  in  the  RWCHAR  array,  while  the  3WLENG  array  references 
the  start  index  for  the  firsr  word  in  the  RWWORD  array  for 
that  length  index.  The  indexes  of  the  RWWORD  array  are  used 


33 


(INDEX)  10  11  12  13  14  15  16  17  18  19  20  21  22 


(INOEX)  1  2  3  4  5  6  (-  RW  WORD  LENGTHS) 


RWOMft  STORES  RESERVED  WORD  CHARS  XN  ORDER  OF  INCREASING  WORD  LENGTH. 
RUMORS  STORES  INDEXES  OF  RVCHAR  CORRESPONDING  TO  FIRST  CHAR  OP  EACH  VORO. 

ruling  stores  noexcs  op  rumors  corresponding  to  first  mors  or  neu  length. 

NOTE  l  ARROWS  DC  I  CATE  RELATIVE  ARRAY  REFERENCES,  NOT  ABSOLUTE  POINTERS. 


Figure  U.  2 
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lively  complex  solution  concerned  the  conversion  of  WEASIC 
to  TI-59  numeric  values.  The  calculator  display  window 
restricts  the  number  of  significant  figures  which  can  be 
entered  from  the  keyboard.  For  numbers  without  exponents,  a 
maximum  cf  ten  digits  (with  decimal  point)  can  be  entered. 
Numbers  with  exponents  are  allowed  a  maximum  cf  eight  digits 
in  the  mantissa  and  two  in  the  exponent.  Because  cf  this 
restriction,  a  rather  complicated  procedure  was  designed  to 
convert  fc'EASIC  numeric  values  to  TI-59  compatible  values 
without  losing  equivalence.  Procedure  ADJUST  performs 
decimal  point  shifting  and  exponent  modification  on  WEASIC 
numerics  which  contain  too  many  significant  figures  for  the 
TI-59.  The  operation  can,  of  course,  reduce  significance  by 
truncation  of  excess  digits.  Except  for  this  loss  of 
digits,  equivalence  is  maintained. 

3 .  Error  Handling 

At  this  point  it  is  appropriate  to  discuss  error 
recognition  and  recovery.  As  implied  earlier,  the  error 
detection  capability  in  BAX 59  is  relatively  weak  and  incom¬ 
plete  as  compared  to  full  language  compilers.  The  reason  is 
that  the  system  requirements  specified  error-free  input 
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source  fries.  The  primary  use  tor  this  system  is  as  a 
supplement  to  an  existing  BASIC  language  interpreter  or 
compiler.  Debugging  of  TI-59  programs  is  a  hard  enough  task 
without  adding  the  complexity  imposed  by  absence  of  EASIC 
language  run-time  diagnostics.  Therefore,  users  of  EAX59 
are  strongly  advised  to  ensure  that  a  WBASIC  program  is 
correct  syntact  ical  ly,  semantically,  and  logically  by 
running  it  in  the  WBASIC  environment,  before  translation  to 
TI-59  code.  Error  handling  in  BAX59  is  restricted  to  detec¬ 
tion  of  subset  related  exceptions,  calculator  capacity 
limits,  and  errors  of  opportunity. 

The  cross-compiler  is  designed  for  recognition  of 
two  major  types  of  errors:  fatal  errors  and  warning 
messages.  Fatal  errors  are  further  categorized  as  scanner 
or  parser  detected. 

Warning  messages  are  generally  unrelated  to  w EASIC 
syntactic  or  semantic  problems.  They  refer  to  potential 
difficulties  with  the  TI-59  run-time  environment,  mcst 
commcnly  (but  not  always)  calculator  capacity.  Such  condi¬ 
tions  as  toe  many  registers  in  use,  too  many  labels  in  use, 
cr  excessively  nested  subroutine  calls,  will  trigger  warn¬ 
ings.  Each  message  is  explicit  and  cautions  the  user  of  a 
situation  which  is  considered  abnormal  to  the  calculator. 
Since  these  errors  are  unrelated  to  the  WBASIC  source  code, 
warning  messages  do  net  halt  the  parsing  or  code  generation 
processes.  However,  TI-59  code  generated  from  a  WEASIC 
source  file  that  produced  warnings  is  not  guaranteed  to 
execute  properly,  if  at  all. 

The  warning  message  is  similar  tc  non- fatal  errers 
in  full  language  compilers.  The  reason  for  continuation  of 
code  generation  is  slightly  different.  A  user  of  BAX59  will 
most  likely  need  to  modify  and  tailor  his  WBASIC  pregram  to 
fit  calculator  constraints  and  capacities.  Warnings  are  a 
ncn-fatal  means  of  providing  near  equivalent  code  data  for 
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tency.  Even  though  the  code  may  not  successfully  execute  on 
the  calculator,  it  still  represents  a  direct  translation 
from  WE  ASIC  and  is  a  fairly  accurate  indication  of  program 
size,  register/label  use,  etc. 

Unlike  a  warning,  one  fatal  error  will  flag  the  main 
loop  against  further  parsing  and  code  generation.  However, 
scanning  for  tokens  continues  until  the  end  of  the  source 
file  is  reached.  Thus,  only  a  single  fatal  syntax  error  can 
ever  be  detected  in  one  BAX59  execution,  although  the 
scanner  will  continue  to  detect  any  number  cf  lexical 
errors.  Fatal  errors  are  also  categorized  as  subset  or 
non-subset  related.  Non-subset  errors  are  those  previously 
referred  to  as  errors  of  opportunity.  During  the  ceding 
phase  cf  development,  simple  syntax  checks  were  often 
inserted  into  the  logic  of  the  parsing  routines.  These  were 
usually  cne-line  IF-THEN-E LSE  constructs  which  cost  very 
little  but  were  highly  protective.  For  example,  the  main 
loop  calls  procedure  PGOTC  whenever  the  GOTO  command  is 
recognized.  Since  error-free  input  is  required,  this  proce¬ 
dure  cculd  have  been  written  to  assume  that  the  next  token 
must  be  a  numeric  line  reference.  Instead,  it  was  a  simple 
matter  tc  check  the  next  token’s  type  and  call  a  syntax 
error  (PEBRCR)  if  it  were  not  numeric.  Note,  however,  fhat 
the  lcgic  cf  PGOTO  will  not  call  an  error  for  a  numeric 
token  which  contains  a  fractional  part,  clearly  a  syntax 
error.  In  fact,  the  cross-compiler  is  not  likely  to  detec* 
an  error  at  all.  Execution  may  result  in  a  Pascal  VS  run¬ 
time  error.  The  reason  is  that  the  numeric  string  will  be 
converted  tc  an  integer  value  based  on  ordinal  values  of  the 
characters.  The  decimal  point  will  appear  to  BAX59  as  any 
ether  character.  However,  its  ordinal  value  will  be  added 
during  conversion  resulting  in  an  inconsistent  integer  value 
for  the  line  reference.  The  routine  used  to  set  jump 


37 


pointers  will  probably  not  be  aDle  to  fina  t he  line  number 
since  it  is  already  in  error. 

Although  often  incomplete,  these  error  ore  os 
provided  much  assistance  in  tracking  system  bugs.  The  tech¬ 
nique  used  was  to  translate  simple  source  programs  known  to 
be  correct.  Errors,  tripped  at  these  check  points  by  system 
bugs,  usually  indicated  the  likely  trouble  spots.  The 
faulty  routine  had  helped  in  parsing  either  the  statement 
which  caused  the  error  or  the  statement  which  immediately 
preceded  it.  Since  the  token  which  tripped  the  error  was 
also  known,  the  exact  routine  and  the  specific  bug  were 
easily  found. 

Subset  related  errors  were  defined  in  the  software 
requirements.  The  user  must  be  told  where  and  hew  he  has 
misused  the  system.  BAX59  incorporates  all  WBASIC  keywords 
(Version  2.0)  in  its  reserved  word  table.  The  main  loop 
logic  contains  the  information  to  distinguish  between  imple¬ 
mented  keywords  and  unimplemented  keywords.  This  technique 
allows  the  reserved  word  table  and  implemented  subset  to  be 
easily  expanded  (or  contracted).  Such  a  technique  strenoly 
supports  the  requirement  for  maintainable  source  code. 

There  is  more  room  for  improvement  in  the  area  of 
error  detection  and  handling  than  in  any  other  aspect  of  the 
cross-compiler.  The  capability  could  certainly  be  extended 
tc  protect  against  all  possible  syntactic  and  semantic 
errors  sc  that  prior  compilation  or  interpretation  would  be 
unnecessary.  However,  the  benefits  tc  be  gained  a r,e-  ques¬ 
tionable,  since  run-time  and  logical  debugging  of  TI-59 
programs  is  no  easy  task.  A  special  file  to  held  error 
message  text  might  help  to  reduce  some  of  the  awkwardness  in 
portions  of  the  code  which  issue  these  messages.  Within 
this  file  the  messages  could  be  indexed  by  number,  thereby 
allowing  mere  verbose  and  possibly  clearer  explanations  of 
errors.  Generally  speaking,  the  critical  resource  of  time 
forced  the  design  of  error  handling  to  be  barely  adequate. 
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•  Symbol  Table  Manage  men  t 

Cne  of  the  mere  important  duties  of  the  parser  is  rc 
manage  the  symbol  table.  The  BAX59  symbol  table  is  a  vari¬ 
able  bucket  hash  table  similar  to  one  described  by  Aho  and 
Ullman  [Bef.  6].  The  data  structure  used  is  an  array  of 
pointers.  The  indices  to  this  array  of  base  pointers  are 
hash  values  computed  by  taking  the  module  99  sum  of  the 
ordinal  values  of  identifier  characters.  This  operation  is 
performed  by  procedure  HASHVAL.  Figure  4.3  depicts  the 
structure  of  the  table  itself  and  its  four  types  of  identi¬ 
fier  entries.  Three  of  the  four  types  of  identifiers  are 
functions.  These  will  be  discussed  later  in  this  chapter. 
The  important  structural  feature  to  notice  new  is  that  each 
node  has  a  SLOTP  field  regardless  of  variant  fag.  The  SLOT? 
field  is  each  entry's  link  in  the  variable  length  chain 
which  forms  a  bucket.  In  order  to  insure  that  no  uninitial¬ 
ized  pointer  references  or  variables  occur,  new  nodes  are 
created  as  needed  by  the  separate  function  GETSLOT.  The  job 
of  this  function  is  to  create  the  node  and  to  insure  that 
all  of  its  fields  have  been  initialized  to  default  values. 
This  same  approach  to  data  structure  construction  is  used 
throughout  3AX59  in  order  to  protect  against  random  initial¬ 
ization  by  the  Pascal  VS  compiler. 

The  look  up  operation  of  procedure  IDLOGKUP  is 
simply  to  hash  the  characters  of  the  identifier  token  in  the 
accumulator  to  the  correct  base  pointer  bucket  in  the  symbol 
fable.  The  IDENT  field  of  each  slot  node  is  compared  to  the 
accumulator  token  until  either  a  match  or  a  nil  pointer  is 
found.  If  a  match  is  found,  a  pointer  to  that  slot  is 
returned.  If  no  match  is  found,  then  a  slot  for  the  accumu¬ 
lator  identifier  token  is  automatically  added  to  the  symbol 
table  in  the  bucket  just  searched.  A  pointer  to  this  new 
slot  is  then  returned.  This  is  in  accordance  with  the 
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semantic  rules  of  the  BASIC  language  which  allows  implicit 
declaraticn  of  variable  names  by  using  them  ir.  statements. 

The  insertion  of  new  identifiers  into  the  symbol 
table  is  performed  by  procedure  ENTE3ID.  This  procedure 
creates  the  new  slot,  fills  all  fields  which  are  known,  and 
links  the  slot  into  the  symbol  table.  It  is  also  during 
this  process  that  identifiers  are  assigned  TI-59  registers 
for  cede  generation  purposes.  Function  NEW REG  handles  the 
register  peel,  which  is  actually  nothing  mere  than  an 
implicit  stack  of  integers.  Ar.  important  feature  regarding 
the  assignment  cf  registers  to  variable  names  is  that  the 
user  has  seme  control  over  these  assignments  from  outside 
the  program.  Included  in  the  LABEL?  file  is  a  place  to  list 
register  numbers  which  the  user  wants  to  reserve  for  his  own 
use.  Function  NEWHEG  will  not  assign  these  numbers  to 
WBASIC  variable  names.  The  significance  and  power  of  this 
control  feature  becomes  more  apparent  during  the  discussion 
of  functions.  The  user  is  cautioned  against  reserving  the 
last  assignable  register  number  (system  parameter  in 
constant  declaration  block:  REG3ASE)  .  Reserving  this 
register  will  shert  circuit  the  logic  which  reports  a  TI-59 
memory  overflow  warning  message,  the  situation  in  which  too 
many  registers  are  in  use. 

As  a  final  ncte,  there  are  two  forms  of  output  which 
are  closely  associated  with  the  symbol  table.  One  is  the 
WBASIC  variable  name  to  TI-59  register  mapping  which  corre¬ 
lates  variables  to  register  assignments.  The  other  is  an 
optionally  available  symbol  table  image,  which  lists  each 
table  entry  in  bucket  order  with  type  and  register  assign¬ 
ment.  Beth  outputs  are  discussed  in  the  last  section  of 
this  chapter. 


4  1 


5 •  Expressions 

The  most  fundamental  and  sost  common  construct  seen 
by  the  pars3  routines  is  the  arithmetic  expression.  The 
many  similarities  between  E ASIC  language  expressions  and 
TI-59  expressions  make  them  relatively  easy  to  parse  and 
generate.  However,  a  few  subtle  differences  cause  abnormal 
situations  requiring  careful  design.  If  there  is  one  lesson 
to  learn  from  this  discussion,  it  is  this:  in  compiler 
design,  when  in  doubt  revert  to  the  grammar  specification. 


TABLE  I 

Production  Buies  for  Expressions 


<EXPRESS  ION>  ::=  <PRIMARY>  {<3IHARYO?>  <PRIMA3Y>} 
<P51MAEY>  ::=  l+l-l  <  ?RIMARY>  | 

Consign ed  numbsb>  i 
<IDENTI FIER> 

<  <EXPR  ESS ION>  ) 


Table  I  lists  the  grammatical  specification  for  a  5IEASIC 
expression.  The  two  production  rules  in  Table  I  are 
abstracted  by  the  two  BAX59  parse  procedures  PEXPR  and 
PPRIMARY.  They  are  designed  to  parse  and  generate  code 
through  mutual  recursion.  Careful  examination  of  the  case 
statements  within  these  prcedures  will  reveal  the  differ¬ 
ences  between  WBASIC  and  TI-59  expressions.  While  both  use 
infix  notation  for  binary  operators,  unlike  WBASIC,  TI-59 
unary  operators  and  function  applications  are  postfix.  This 
minor  twist  in  notation  adds  a  little  complexity  to  the 
logic  of  the  expression  parsing  routines.  However,  once 
designed,  the  code  for  translation  of  expressions  became  the 
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fundamental  base  upon  which  assignment  statements,  condi¬ 
tional  expressions,  functions,  and  many  other  ccr.tructs 
could  be  built. 


6  .  Cns t rue t  ure d  Jumps 


Seme  cf  the  easiest  constructs  to  understand  and 
implement  were  the  unstructured  control  statements  GOTO  and 
GOSUE.  1c  realize  their  simplicity  it  is  necessary  at  this 
point  tc  introduce  the  code  data  structure  which  is 
constructed  by  the  generation  routines. 

Illustrated  by  Figure  4.4,  the  cede  data  structure 
is,  perhaps,  the  most  unique  design  concept  of  this  cross- 
compiler.  There  are  two  types  of  nodes:  WBASIC  lin<=>  number 
nodes  and  TI-59  keycode  nodes.  Since  unstructured 
constructs  in  WBASIC  are  dependent  upon  source  line  numbers, 
there  bad  tc  be  a  method  of  associating  the  TI-59  cede  with 
those  same  line  numbers.  Figure  4.4  shows  how  line  nodes 
and  code  nodes  are  linked  to  duplicate  this  association .  It 
is  important  to  note  that  the  TI-59  code  chain  is  completely 
independent  (and  may  be  traversed  as  such)  cf  the  WEASIC 
line  number  chain.  The  line  nodes  merely  provide  a  frame  cf 
reference  fer  the  TI-59  code. 

Procedure  SETLINE,  called  at  the  beginning  of  the 
main  driving  loop,  is  responsible  for  insuring  that  new  line 
nodes  are  created  and  inserted  into  proper  order.  As  each 
line  is  parsed,  special  holding  pointers  (FIRSTLP,  LASTLP, 
EEGINCP,  ENECP,  LPLEAD,  LPT  SAIL,  LPCCJR,  CPOJR)  keep  track  cf 


ail  key  locations  in  the  structure.  As  Figure  4.4  indi¬ 
cates,  it  is  possible  to  have  line  nodes  created  and  linked 
prior  to  their  encounter  in  the  source  code.  This  occurs 
whenever  a  forward  jump  (GOTO)  is  parsed.  Since  the  line 
reference  of  a  forward  jump  has  not  been  parsed,  its  line 
node  would  not  exist.  However,  the  jump  pointer  (JMPP)  must 
be  anchored  to  a  node.  So  the  line  node  and  an  anchoring 
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cods  node  are  inserted  in  correct  order  ahead  of  the  current 
line.  Procedure  SETJMP2XT  sets  forward  as  well  as  backward 
jump  references.  Cf  course,  setting  backward  jumps  is 
easier  because  the  line  number  nods  has  already  besn  created 
and  is  ir  place.  It  should  be  noted  chat  procedure  SETLINE 
always  checks  its  forward  line  number  chain  before  creating 
a  new  line  node.  If  a  line  node  exists  whose  line  number 
field  (LINO)  is  equal  to  the  next  'rf3ASIC  line  number,  then 
it  will  be  used  instead. 

The  technique  for  handling  G0SU3  statements  is 
similar  tc  but  slightly  more  involved  than  the  GOTO.  Since 
the  GCSUE  is  actually  an  unstructured  subroutine  call,  it 
was  necessary  to  maintain  consistency  in  code  generation  so 
that  the  linker  cculd  recognize  the  difference  between 
subroutines  and  unconditional  jumps.  All  TI-59  subroutines 
are  prefaced  with  and  called  by  a  label  name.  Therefore, 
while  initially  the  GCSUB  can  be  treated  as  a  GOTO ,  at  seme 
time  later  a  label  must  be  inserted  at  the  head  of  the 
subroutine  body,  which  is  the  nede  referenced  by  the  jump 
pointer.  This  is  done  during  the  resolution  phase  cf  compi¬ 
lation  by  procedure  FINDGOSU3LBL.  This  fairly  tricky 
insertion  is  one  reason  for  the  existence  of  the  back 
pointer  field  (BAKP)  in  code  nodes.  This  operation  will  be 
explored  in  the  sub-section  on  resolution. 

7  .  looping  and  S ran chi  no 

Users  of  BAX 59  are  strongly  urged  to  practice  struc¬ 
tured  pregramming  when  writing  WBASIC  code.  Translation  to 
and  execution  on  the  TI-59  are  far  more  regular  and  predic¬ 
table  when  the  input  source  code  is  structured  and  readable. 
Much  of  the  design  of  the  entire  system  is  based  upon  the 
assumption  that  the  source  program  will  be  structured.  You 
will  understand  why  more  thoroughly  in  the  section 
describing  linker  design. 


structured  lectin 


We  begin  discussion  of  structured  looping  and 
branching  by  introducing  procedure  PCONDITION.  This  proce¬ 
dure  is  fundamental  to  the  parsing  and  code  generation  for 
simple  boolean  expressions  (compound  boolean  expressions 
have  net  been  implemented).  While  W&ASIC  has  a  fairly 
common  set  of  boolean  operators,  the  TI-59  does  net.  There 
was  a  need  to  construct  efficient  sequences  of  TI-59  code 
which  are  equivalent  to  the  W 3 ASIC  boolean  operators.  These 
equivalences,  shown  in  Table  II,  are  implemented  in 


TABLE  II 

TI-59  Keycode  Sequences  Equivalent  to  Boolean 

Operators 


A  =  B 

A  <>  B 

A  >=  B 

A  <=  B 

A  >  B 

A  <  B 

FCL  A 

RCL  A 

RCL  A 

RCL  A 

RCL  A 

RCL  A 

X->T 

X-  >T 

X-  >T 

X->T 

X->T 

RCL  E 

RCL  E 

RCL  B 

RCL  B 

RCL  3 

RCL  E 

X=T 

X->T 

INV 

X>=T 

X->T 

X  =  T 

INV 

X>  =T 

X>=T 

X>  =  T 

procedure  FCCNDITION.  While  it  would  have  beer,  possible  to 
implement  compound  boolean  expressions  (AMD  and  OR),  the 
lack  cf  time  and  the  fact  that  their  logic  could  be  dupli¬ 
cated  using  IF  statements  prevented  this  enhancement.  It 
was,  however,  a  very  simple  extension  of  logic  to  recognize 
and  translate  a  negation  (NOT)  . 

In  the  i  uplementati  or  of  a  block  structured  language 
which  allows  nesting,  the  use  of  stacks  is  an  important 
teennique.  And  so  it  was  with  looping  in  BAX 59 .  Ey  nature 
loops  involve  backward  jumps.  As  with  unstructured  jumps, 
there  existed  a  need  to  anchor  pointers  on  code  nodes  whose 


source  cede  had  yet  tc  be  translated.  In  the  case  cf  lccps, 
the  inverse  of  this  concept  is  also  true.  There  was  a  need 
to  create  pointers  from  code  nodes  whose  source  code  had  yet 
to  be  translated.  Since  structured  nesting  of  loops  is 
checked  ty  the  WEASIC  interpreter,  it  was  possible  to  pre¬ 
create  these  nodes  and  push  them  onto  a  stack  until  their 
place  of  insertion  is  encountered.  This  is  exactly  how 
loops  are  translated  using  LOOPSTACK  and  ENDLOOPST ACK.  when 
the  LCOP  statement  is  encountered,  a  NOP  keycode  node  is 
created  and  pushed  crto  the  ENOLOOP s TACK.  In  the  case  of 
the  WHILE  statement,  a  boolean  expression  is  processed,  a 
forward  reference  node  is  created,  a  jump  pointer  is  set  to 
the  ncde  (fcr  the  false  branch  to  end  cf  loop)  ,  and  this 
node  is  pushed  onto  the  LOOPSTACK.  When  the  ENDLOOP  or 
UNTIL  is  found,  the  stacks  are  popped  and  the  NOP  nodes  are 
inserted.  The  nature  of  correct  nesting  guarantees  that  NOP 
code  nodes  popped  from  the  stack  will  have  jump  pointers 
referencing  or  will  he  referenced  by  the  appropriate  cede 
nodes. 

Iterative  loops  are  written  by  using  the  FOR-NZXT 
construct.  The  stack  implementation  is  similar  to  that 
described  above.  The  main  difference  is  in  the  additional 
calculator  resources  required  for  such  a  loop.  Unlike  ordi¬ 
nary  variable  names,  the  FOR  loop  variable  requires  from  two 
to  three  register  assignments.  The  fields  AUXREG1  and 
AUX3EG2  in  the  VARIC  tagged  slot  record  are  used  for  this 
purpose.  AUXREG1  holds  the  TI-59  register  number  which  will 
store  the  upper  (lower)  limit  of  the  FOR  index  variable. 
The  FCR  index  variable  increment  will  always  default  to  +1 
unless  the  STEP  option  is  used.  If  STEP  is  used,  then 
AUXREG2  will  hold  the  register  number  which  stores  the 
increment  value.  The  user  should  understand  that  use  of  a 
FOR  lccp  carries  a  fairly  heavy  overhead  in  terms  cf  both 
register  and  program  step  use.  A  single  simple  FOR 


statement  in  'rfBASIC  translates  tc  use  of  two  registers  and 
ever  20  program  steps.  Most  of  this  overhead  is  caused  by 
the  run-time  checking  of  the  FOR  index  variable  value 
against  its  limit  for  each  iteration  through  the  loop. 

Branching  is  another  construct  implemented  with 
stacks.  There  are  actually  two  forms  of  branching:  the 
unstructured  or  line-oriented  IF  statement  and  the  block 
structured  IF  statement.  The  unstructured  IF  is  actually 
only  partially  inplemented.  W3ASIC  allows  either  a  jump  to 
a  line  number  or  execution  of  any  single  statement  within 
each  of  the  IF  branches.  Because  the  structured  IF  can  be 
written  tc  perform  the  same  way,  it  was  decided  to  restrict 
the  unstructured  IF  to  allcw  line  jumps  or  the  QUIT  state¬ 
ment.  The  implementation  of  line-oriented  jumps  has  already 
been  discussed.  An  IF-TH  EN-QUIT  or  IF-THEN-ELS  E-QUIT  is 
handled  by  setting  a  jump  pointer  to  the  ENDLOOPSTACK.  The 
effect  is  tc  force  program  control  to  exit  the  current  loep. 
If  control  is  not  within  a  loop  (i.e.  ENDLOOPSTACK  is  nil), 
then  an  error  condition  is  raised.  FOR  loops  are  not 
considered  loops  in  this  context. 

The  more  powerful  of  the  two  IF  statements  is  the 
block  structured  IF-ELSEIF- ELSE-ENDI F.  This  form  disallows 
the  use  cf  keyword  THEN,  since  it  is  implied.  Once  again, 
stacks  are  used  to  implement  the  structured  IF.  The  logic 
and  its  correspondence  to  the  manipulation  of  stacks  is 
roughly  similar  to  that  of  looping.  Instead  of  directing 
jump  pointers  to  the  end  of  loops,  they  are  directed  tc  the 
next  ELSEIF  or  ELSE.  An  unusual  situation  occurs,  however, 
in  the  case  of  the  IF  statement.  Stack  manipulation  for  the 
IF- EN  Cl?  is  slightly  different  from  that  fer  the 
IF-ELSE-ENDIF  or  the  IF-EL SEIF-ELSE-ENDIF .  To  understand 
the  problem,  assume  the  viewpoint  of  a  parser  which  has  just 
evaluated  the  condition  of  a  structured  IF.  At  this  point 
you  dc  not  knew  whether  or  not  an  ELSE/ELSEIF  or  an 
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immediate  ENDIF  will  follow  the  true  branch.  lo  which  track 
will  the  jump  pointer  of  the  false  branch  be  set?  In  order 
to  ccver  both  possibilities,  a  pointer  to  a  node  pushed  onto 
each  stack  is  required.  However,  there  is  only  one  jump 
pointer  field  (JMPP)  for  the  code  node  which  represents  the 
jump  address  to  the  false  branch.  Our  solution  uses  the 
tack  pcinter  field  (EAKP)  to  referncs  a  node  in  the  IFSTACK, 
wniie  the  jump  pcinter  field  (JMPP)  references  a  node  in  the 
ENDIFSTACK.  Procedure  ELS EADJUST  performs  the  resetting  of 
pointers  required  when  an  ELSE/ELSZIF  is  encountered.  When 
the  ENDIF  is  encountered,  the  5AK?  is  tested  for  a  nil 
pointer.  A  nil  3AKE  at  the  top  of  the  ENDIFSTACK  indicates 
that  an  ELSE/ELS EIF  has  been  seen.  This  is  because  proce¬ 
dure  ELSEADJOST  is  the  only  routine  which  can  clear  the  BAKP 
reference  before  the  ENDIF  is  encountered. 

The  causa  for  all  the  foregoing  complexity  is  the 
fact  that  IF-ENDIF  has  a  single  faxse  branch  which  must  be  a 
jump  past  the  ENDIF.  The  tail  of  the  true  branch  merely 
falls  through  the  ENDIF.  On  the  ether  hand, 
IF- EL SB IF- ELSE- ENDIF  can  have  several  false  branches,  only 
cne  of  which  may  jump  tc  the  ENDIF.  The  tails  of  the  all 
true  tranches  must  he  jumps  to  the  ENDIF.  The  logic  of 
BAX59  is  designed  to  recognize  and  generate  equivalent  TI-59 
code  for  any  of  these  possi hilites. 

8 .  Functions 

The  mo3t  powerful  feature  of  the  BAX59  cross- 
compiler  is  the  translation  of  functions.  Both  built-in  and 
user-defined  functions  are  handled.  In  order  to  take  full 
advantage  of  the  calculator’s  capabilities,  it  was  necessary 
to  design  three  distinctly  different  types  of  functions. 
The  first  type,  referred  to  as  "quick”  functions,  are  the 
common  arithmetic/trignometric  functions  such  as  LOG,  SIN, 
COS.  The  second  type  of  function  harnesses  the  power  of  the 


Sclid  State  Software  module.  These  are  referred  tc  as 
"long"  functions.  Both  of  these  first  two  types  are 
built-in  functions.  The  third  type  is  user-defined  "param¬ 
eter"  functions,  which  are  translated  from  WEASIC  source 
code  specifications. 

Ihe  difference  between  "quick"  and  "long"  functions 
is  basically  the  number  of  TI-59  program  steps  generated  for 
each.  "Quick"  functions  generally  translate  to  a  one  or  two 
step  TI-59  keycode  seguence.  However,  they  may  have  as  many 
as  four  steps.  Because  they  are  short,  "quick"  functions 
are  inserted  as  in-line  macros.  On  the  other  hand,  "long" 
functions  may  translate  tc  as  many  as  15  steps.  Therefore, 
their  length  requires  that  they  be  called  as  subroutines 
rather  than  translated  in-line. 

Bead  from  the  BIFNQF  and  3IFNLF  files  respectively, 
the  cede  fer  both  "quick"  and  "long"  functions  is  entered 
into  the  symbol  table  during  initialization.  BIFNQF  and 
BIFNLF  may  be  revised  by  the  user  from  outside  the  cross- 
compiler.  By  knowing  the  TI-159  kay  stroke  sequence,  a  user 
may  add  his  own  functions  to  either  file.  As  a  special  user 
note,  the  format  for  additions  to  these  files  is  critical. 
The  number  of  kay  strokes  in  a  function  sequence  may  not 
exceed  the  maximum  limit  for  the  type  of  function.  If  less 
than  that  limit,  then  the  end  of  the  sequence  must  be  padded 
with  NOP  (68)  key  strokes  to  the  maximum  limit.  These 
limits  may  be  altered  by  adjusting  the  system  parameters 
FNQLEN  and  FNLLEN  in  the  constant  declaration  block  of  the 
EAX59  source  code. 

Nest  all  functions  that  could  be  implemented  as 
"quick"  have  been  and  are  listed  in  the  BIFNQF  file. 
However,  only  the  RND(X)  (random  number  generator)  function 
has  been  implemented  as  "long."  To  illustrate  the  concept 
of  "long"  function,  we  will  walk  through  the  design  of 
SND (X) . 


Suppose  you  desire  to  write  a  TI-^59  program  wr.ich 
uses  a  random  number  generator.  You  might  write  your  own 
pseudo-random  number  generator  subroutine,  but  the  TI-59  has 
such  a  routine  built  into  its  read-only  Solid  State  Software 
module.  Use  of  this  built-in  facility  would  clearly  be  mere 
space  efficient.  WEASIC  also  has  such  a  function,  RND(X)  . 
If  it  had  net,  it  would  be  possible  to  write  one  in  WEASIC 
using  the  DEF  FN_RN D  (X)  statement.  Before  translation  it 
would  be  necessary  to  remove  the  function  definition  block 
and  replace  the  FN_RND(X)  calls  with  RIID(X).  However,  this 
is  not  required  in  cur  example.  You  must  ensure  that  the 
TI-59  registers  used  by  the  Solid  State  Software  module  to 
run  the  RND  (X)  function  are  reserved  in  the  LAbEIF  file. 
This  information  can  be  found  in  the  Master  Library  Manual 
[Ref.  7],  which  is  the  Master  Solid  State  Software  module 
reference  guide.  RND(X)  uses  registers  0  1,  02,  03,  04,  05, 
06,  and  09.  "Long"  functions  always  take  a  single  parameter 
(even  if  it  is  a  dummy).  Register  number  10  has  been  desig¬ 
nated  to  store  this  parameter  and  should  also  appear  on  the 
reserved  list.  This  parameter  register  assig-nmenr  may  be 
changed  in  system  parameters  of  the  3AX59  source  code  if 
desired.  Eafch  time  it  is  encountered  within  the  KEASIC 
source  program,  RND(X)  will  translate  as  a  call  to  a  subrou¬ 
tine  whose  single  parameter  is  stored  in  register  10.  The 
first  time  seen,  the  RND  symbol  fable  node  will  be  linked  to 
a  special  list  (FNLLIST).  At  the  conclusion  of  code  genera¬ 
tion,  FNLLIST  will  be  traversed  and  the  key  sequence  which 
executes  RNE(X)  as  well  as  any  other  "long"  functions  on  the 
list,  will  be  added  to  the  code  data  structure  as  subroutine 
todies. 

The  real  power  of  this  facility  lies  in  its  user- 
controlled  flexibility.  The  user  may  convert  almost  any 
program  function  in  the  Solid  State  Software  module  into  a 
single  parameter  "long"  function.  All  he  must  do  is  reserve 


the  correct  registers  m  the  LA3ELF  file,  list  the  key 
sequence  in  the  3IFNLF  file,  and,  if  necessary,  fix  the 
values  of  all  but  cne  of  the  function  input  parameters  (or 
create  a  dummy)  .  If  the  function  does  not  exist  in  W3ASIC, 
then  he  must  write  the  DEF  block  for  it  in  order  to  checx 
program  correctness  prior  to  translation. 

Having  strayed  frcm  implementation  design  toward 
system  utility,  we  new  return  to  implementation  discussion 
of  so-called  "parameter"  functions.  The  name  given  these 
user-defined  functions  applies  mere  to  how  they  are  imple¬ 
mented  rather  than  to  their  nature.  The  parsing  routines 
always  expect  parameters  but  do  not  require  them. 
Par ametarless  functions  are,  indeed,  recognized. 

Although  the  cross-compiler  will  ccrrec*ly  translate 
a  function  definition  ( DEF  statement  or  block)  whether  it 
occurs  before  or  after  its  respective  call,  the  linker 
requires  that  all  sufcrou tin  e/function  bodies  be  placed  after 
the  main  program. 

When  a  new  function  identifier  is  recognized  (by  the 
"FN_ "  prefix),  a  new  FNPID  tagged  slot  is  created  for  the 
symbol  table.  Procedure  GENPARM  is  then  called  upon  to 
parse  actual  parameter  expressions,  generate  code  which 
performs  their  run-time  evaluation,  and  construct  the  formal 
parameter  list.  Parameters,  if  found,  are  linked  in  order 
*o  the  FNP  field  of  the  symbol  table  slot  for  the  function. 
While  registers  are  assigned  to  these  parameters,  the  corre¬ 
sponding  formal  parameter  names  cannot  yet  be  entered  since 
they  are  net  known  until  the  function  DEF  statement  is 
found.  Nets  that  foraals  are  assumed  to  match  actual  param¬ 
eters  by  both  order  and  quantity.  There  are  no  checks  in 
BAX 5 9  to  insure  this  correctness.  Only  a  run  through  the 
W3ASIC  interpreter  will  verify  parameter  corr espon fence . 


When  the  function  definition  is  found  in  :n?  CZF 
statement,  a  process  similar  tc  parsing  the  call  taxes 
place.  The  formal  parameter  names  are  new  inserted  into  the 
parameter  list  attached  to  the  function  slot  in  the  symbol 
table.  Esfcre  the  function  body  is  processed,  the  slot  is 
pushed  onto  the  FNSTACK.  This  stack  simulates  an  activation 
record  stack.  Each  identifier  lock  up  that  is  performed  by 
procedure  IELOOKUP  requires  that  the  FNSTACK  be  examined  for 
active  functions.  If  a  formal  parameter  name  is  found  in  an 
active  function  parameter  list  which  matches  the  identifier 
being  sought,  then  its  register  assignment  is  used  for  cede 
generation.  As  a  result,  standard  rules  of  variable  visi¬ 
bility  and  scoping  apply.  When  the  end  of  a  function  body 
(FNEND  statement)  is  exccuntared,  the  function  slot  is 
popped  from  the  FNSTACK  and  its  formal  parameters  are  no 
longer  visible  tc  the  run-time  environment. 

As  a  final  note,  the  user,  should  know  that  "param- 
eter ••  function  names  receive  their  own  register  assignment. 
This  register  is  the  place  in  which  the  final  value  of  the 
function  is  returned.  This  register  is  zeroed  during  run¬ 
time  just  prior  to  the  execution  of  the  function  call. 
However,  after  execution  the  value  in  this  register  persists 
until  the  next  call  cn  the  function.  This  corresponds  to  an 
identical  situation  in  the  WBASIC  run-time  environment. 

9.  Cede  Resolution 


If  the  physical  end  of  the  WBASIC  source  program  is 
reached,  or  if  a  WBASIC  END  statement  is  found,  parsing  is 
stopped,  the  bodies  for  any  "long"  functions  used  are  gener¬ 
ated,  and  the  code  data  structure  is  closed  out  with  nil 
pointers.  At  this  point,  the  code  resolution  phase  of 
compilation  begins. 


The  first  step  in  resolution  is  to  locate  and  ir.sert 
labels  at  the  destinations  of  all  unstructured  subroutine 
(SBR )  calls.  These,  of  course,  were  generated  by  GOSCJB 
statements.  Since  GCSUB  is  a  line-oriented  jump,  then  there 
is  a  pointer  in  the  cede  data  structure  referencing  the 
destination  of  that  jump.  Procedure  FINDGOSU3LBL  traverses 
the  cede  data  nodes  searching  for  S3R  keycodes  which  are 
followed  by  a  node  with  a  non-nil  jump  pointer  (JMPP)  .  A 
very  complicated  check  is  made  to  ensure  that  the  SBR  label 
has  net  already  been  inserted  by  an  identical  SBR  call.  If 
not,  than  the  back  pointer  (3AK?)  is  used  by  procedure 
PUTGCSUBLEL  to  assist  in  the  insertion  of  the  label  at  the 
jump  destination.  Once  the  insertion  has  been  completed, 
the  address  field  ( ACER)  of  the  JMPP  target  is  set  from  zero 
to  negative  one  and  the  jump  pointer  (JMPP)  is  set  to  nil. 
This  signifies  to  other  routines  that  this  jump  has  bean 
resolved.  The  process  continues  until  the  end  of  the  cede 
data  is  reached. 

The  next  step  in  resolution  is  to  perform  a  special 
brand  of  TI-59  "peephole"  optimization.  The  most  common 
forms  of  excess  parentheses  pairs  are  removed.  Such  forms 
as  "  (RCL  nn)"  and  "(2.3333-12)"  will  have  been  generated  as 
a  result  of  parsing  even  simple  assignment  statements  and 
expressions.  Since  the  parentheses  in  these  expressions  are 
unnecessary  and  use  up  valuable  program  steps,  they  are 
removed,  provided  they  are  not  referenced  by  a  jump  pointer. 
If  referenced  by  a  jump  pointer,  the  node's  address  field 
(ADDR )  value  will  he  0  instead  of  -1  or  -2.  Removal  of 
these  will  cause  dangling  jump  references. 

Looping  and  branching  generate  many  place  holding 
NOP  ksycodes.  These  are  also  an  unnecessary  use  of  program 
steps.  However,  remember  that  almost  all  of  these  were 
generated  tc  anchor  cr  project  jump  pointers.  Thus,  befere 
removal  their  jump  pointers  must  be  reset.  Procedure  CSQNOP 
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passes  ever  the  code  data  twice,  ones  to  reset  all  jumps  tc 
and  from  NCP' s,  and  the  second  to  locate  and  remove  the 
NOP '  s .  It  is  important  to  realize  that  there  is  a  distinc¬ 
tion  between  a  useless  NOP  and  one  which  is  acting  as  a 
label  identifier  or  a  jump  address  place  holder.  Because 
the  TI-59  requires  that  particular  keycodes  be  followed  by 
labels,  register  numbers,  or  addresses  it  is  easy  tc  check 
keyccde  usage.  This  information  is  actually  loaded  during 
initialization  into  the  UNIT  field  of  the  CODETEXT  record. 
It  is  an  integer  0.  .  3  which  indicates  whether  the  TI-59  code 
node  is  a  one,  two,  three,  or  four  keystroke  instruction. 
This  information  is  used  to  pass  over  keycodes  which  are 
required  parts  of  a  larger  instruction. 

The  final  stage  of  resolution  is  tc  convert  relative 
jump  (pointer  referenced)  addresses  into  absolute  (numer¬ 
ical)  addresses.  This  must  be  the  last  step  because 
previcus  cede  inserticn/deletion  routines  constantly  change 
absolute  addresses.  At  this  point  no  cede  insertion  or 
deletion  cccurs.  Procedure  R3SOLVE_ADDR  passes  over  the 

code  data  twice.  The  first  pass  fills  the  address  fields 

(ADDR)  of  all  code  nodes  in  sequential  craer  starting  at 
000.  New  that  each  exact  absolute  address  is  known,  all 
jump  pointers  which  are  still  marking  address  space  and 
referencing  a  destination  nods  can  be  resolved.  A  TI-59 
coded  address  consists  of  two  parts.  During  the  second  pass 
procedure  INSERT^JHP ADDR  is  called  at  non-nil  jump  pointers 
to  read  the  destination  address,  split  it  into  its  two 
integer  parts,  and  insert  the  parts  into  the  address  space 
nodes.  Cnee  all  jumps  have  been  resolved,  the  cede  data 
structure  is  ready  fer  output  and  linking. 


10.  Ir.out/Output 

In  this  subsection  we  discuss  twc  input/cur  pur 
related  issues:  I mplementa  ticn  of  I/O  constructs  ar.d  CPTICN 
messages  to  the  compiler.  The  limited  capabilities  of  the 
calculator  required  that  file  handling  and  string  handling 
aspects  cf  WBASIC  be  eliminated  from  our  subset.  For 
similar  reasons  the  I/O  constructs  which  cculd  be  translated 
from  WEASIC  required  restrictions. 

While  the  WE  ASIC  I/O  statements  INPUT  and  PRINT 
normally  provide  for  file  management,  the  3AX59  implementa¬ 
tion  cannot.  The  crcss-co mpiler  recognizes  PRINT  followed 
by  any  number  cf  simple  expressions  separated  by  commas. 
The  TI-59  coda  generated  will  evaluate  these  expressions  ana 
print  their  values  (to  either  the  display  register  or  the 
Texas  Instruments  PC-100  Printer  Cradle).  On  the  ether 
hand,  the  INPUT  statement  takes  any  number  cf  variable  iden¬ 
tifiers  separated  by  commas.  For  each  identifier  in  the 
INPUT  list,  the  TI-59  program  halts  execution,  displays  the 
register  assignment  for  that  identifier,  and  stores  the 
input  value  entered  by  the  user  in  the  register  assigned. 

Many  programs  require  the  reading  of  large  amounts 
cf  data,  often  at  the  start  cf  execution.  In  this  situation 
the  INPUT  statement  tends  to  generate  an  excessive  amount  of 
program  step  overhead.  Unless  the  program  is  designed  to  be 
interactive,  this  overhead  unnecessarily  increases  TI-59 
program  size.  In  order  to  provide  a  more  space  efficient 
means  of  data  entry,  a  limited  translation  of  the  WEASIC 
DATA  and  READ  statements  was  designed.  In  some  sense,  these 
statements  provide  a  substitute  for  file  handling.  The  DATA 
statements  are  placed  at  the  beginning  of  the  WBASIC  source 
program.  Each  statement  may  be  followed  by  numeric  data 
items  separated  by  commas.  The  total  number  of  data  items 
in  one  program  is  limited  to  the  number  of  unreserved 


registers  available  in  the  calculator  (based  upon  the  system 
parameter  REG3AS2)  .  If  this  limit  is  exceeded,  a  warning 
message  will  be  issued.  READ  statements  take  variable  iden¬ 
tifiers  and  may  be  written  with  the  DATA  statements, 
however,  the  number  of  variables  input  to  READ  statements 
should  never  exceed  the  number  of  data  items  provided  by 
DATA  statements.  This  condition  will  also  cause  a  warning 
message  and  further  EATA/READ  statements  will  be  ignored. 
The  parse  routines  make  register  assignments  to  the  vari¬ 
ables  in  the  READ  statements,  and  concurrently  build  a  list 
which  maps  the  data  items  to  their  respective  registers  and 
variable  names.  This  list  is  one  form  c-f  compiler  output. 
Using  the  list  the  user  can  pre-load  TI-59  registers  with 
numeric  values  and  be  assured  that  they  will  be  in  corre¬ 
spondence  with  the  translation  of  variable  names.  Mere 
importantly,  no  TI-59  program  steps  are  used  for  this 
initial  input.  In  fact,  the  data  could  be  read  from  a 
magnetic  card  into  a  memory  bank  prior  to  execution. 

As  we  have  previously  implied,  there  are  many  forms 
cf  output  which  can  be  generated  by  the  cross-compiler. 
Additionally,  the  user  will  probably  have  to  do  some  debug¬ 
ging.  We  have  chosen  to  provide  a  primitive  set  cf  tools 
and  options  which  can  be  toggled  on  or  off  from  outside  the 
EAX59  source  program.  The  toggles  are  set  or  reset  by  using 
rhe  CFTICN  statement  in  the  WEASIC  program.  Caution!  Do 
not  confuse  this  statement,  which  is  unique  to  the  EAX59 
cross-compiler,  with  the  WEASIC  OPTION  statement.  They  are 
not  the  same.  BAX 5 9  does  not  recognize  WBASIC  OPTION  param¬ 
eters  and  WEASIC  does  not  recognize  BAX59  OPTION  parameters. 
Table  III  lists  the  possible  options  available  to  EAX59 
users.  To  toggle  the  options,  simply  include  an  OPTION 
statement  as  the  first  line  of  the  program  to  be  translated. 
Desired  parameter  settings  should  follow  the  OPTION  reserved 
word  separated  by  spaces.  Positive  parameters  set  the 


57 


Param 

TABLE  III 

BAX 59  OPTION  Statement  Parameters 

eter  Option 

Default 

±0 

Generate  linker  interface  file 

false 

±1 

Generate  code  for  PC-100  printer 

true 

±2 

Optimize  out  unnecessary  parentheses 

true  i 

±3 

Optimize  out  unnecessary  NOP's 

true 

±4 

Translated  TI-59  code  to  list  file 

true  i 

±5 

Image  of  symbol  table  to  list  file 

false  i 

±6 

Contents  of  cede  structure  to  list  file 

false 

±7 

Each  lexical  token  to  terminal 

false  i 

±8 

Each  lexical  token  to  list  file 

false 

i 

toggle  true;  negative  parameters  reset  the  toggle  false.  In 
the  case  of  the  zero  parameter,  the  sign  has  no  effect. 

As  a  final  note,  an  OPTION  statement  may  net  be 
placed  in  the  WEASIC  source  program  until  it  is  ready  for 
translation.  Also,  placing  an  OPTION  statement  in  any  line 
but  the  first  may  produce  unpredictable  results. 


E.  LINKER 

The  linker's  purpose  is  to  produce  a  segmented  version 
of  the  compiled  code  and  present  the  cods  in  a  format  that 
is  user  friendly.  Ihe  informal  strategy  used  to  accomplish 
this  was  discussed  in  the  preliminary  design  phase  of 
Chapter  III.  The  detailed  design  that  supported  the  solu¬ 
tion  strategy  called  for  the  linker  to  operate  sequentially 
through  three  major  phases.  In  Figure  4.5,  the  contour 
diagram  for  the  linker  is  presented.  The  preprocessor  phase 
of  the  linker  includes  actions  from  some  of  the  SYSTEM 
UTILITY  procedures  and  the  3LD_SS0TBL  procedure.  The 

remaining  two  procedures,  COALESCE  and  INSTRUCTIONS, 
accomplish  the  segmenting  and  postprocessing  activities. 


SYSTEM  UTILITIES 
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Each  cf  these  major  actions  were  described  in  the  prelimi¬ 
nary  design  phase  in  Chapter  III.  The  detailed  design  of 
these  specific  operations  will  be  presented  in  the  next 
sections.  Only  those  major  design  considerations  reguired 
for  understanding  the  operation  of  the  major  operative 
phases  will  be  presented. 

1  •  Freproce  ssor 

As  was  mentioned  in  the  preliminary  design,  the 
primary  purpose  of  the  preprocessor  is  to  reproduce  the 
compiled  linked  code  list  and  generate  a  table  that  repre¬ 
sents  the  sequential  segments  of  the  compiled  cede. 

The  informal  strategy  called  for  a  two  step  opera¬ 
tion.  In  the  first  step,  textual  integer  pairs  are  read 
from  an  input  file  into  a  data  record.  Each  record  is 
linked  tc  the  preceding  record  forming  a  linked  list  which 
reproduces  the  linked  list  of  code  generated  by  the 
compiler.  The  next  step  evaluates  the  linked  list,  to  deter¬ 
mine  where  the  sequential  segments  are  located.  Information 
concerning  each  sequential  segment  is  stored  in  another 
record  ard  linked  to  the  preceding  sequential  segment 
record,  thus  forming  a  linked  list  cf  sequential  segment 
description  records.  Evaluation  for  sequential  segments 
would  occur  by  TI-59  labeled  subroutines.  •  Each  list  of 
sequential  segment  records  would  be  pointed  to  by  a  header 
record  which  contains  the  subroutine  name.  Each  of  these 
subroutine  name  header  records  would  be  linked  to  ether 
subroutine  name  header  records  in  the  same  order  in  which 
they  were  detected  in  the  generated  code. 

Two  data  structures  were  needed  tc  support  this 
strategy.  The  first  structure  comprises  a  linked  list  of 
records.  Each  record  contains  all  the  information  that  is 
contained  in  one  program  step  in  the  TI-59  calculator, 
including  the  address  of  the  instruction  and  the  instruction 
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integer  cede.  Each  record  is  linked  to  the  following  r-ccri 
by  a  dynamic  pointer,  which  captures  the  sequential  nature 
of  the  compiled  code.  Another  dynamic  link  is  provided  for 
those  records  containing  keycodes  that  may  cause  the  flew  of 
control  tc  change  from  a  sequential  flow.  The  generated 
linked  list  of  records  is  a  complete  internal  representation 
cf  the  compiled  code. 

A  second  data  structure  is  needed  to  represent  a 
sequential  segment  cf  code.  Vital  program  control  flow 
information  must  be  captured  by  the  structure  sc  that 
segmentation  rules  may  be  applied  during  linker  processing. 
To  accomplish  this  a  sequential  segment  table  was  developed 
utilizing  a  record  fermat  to  describe  each  segment.  This 
table  record  holds  data  such  as  segment  start  address,  stop 
address,  whether  the  segment  is  covered  by  an  iterative 
backlcop,  a  list  of  forward  jumps  and  a  list  of  subroutine 
invocations  that  originate  within  the  segment.  Each  one  of 
these  records  is  linked  to  the  following  sequential 
segment's  record.  In  addition,  the  sequential  segment 
records  are  grouped  according  to  subroutine.  That  is  to 
say,  only  those  sequential  segments  residing  within  cne 
TI-59  subroutine  definition  are  connected  together  in 
sequential  erder. 

The  linked  sequential  segments  are  tied  together  by 
other  records  of  the  same  basic  type  but  different  variants. 
Each  subreutine  grouping  of  sequential  segment  records  is 
pointed  tc  by  a  linked  list  of  header  nodes.  These  nodes 
contain  the  name  of  the  subroutine  and  the  subroutine  defi¬ 
nition  address.  Each  header  is  linked  to  another  subreutine 
header  in  the  same  erder  in  which  subroutine  definitions 
cccur  within  the  generated  TI-59  code. 

Tc  capture  information  relating  to  forward  jumps,  a 
variant  cf  the  sequential  segment  record  is  used  tc  build  a 
forward  jump  list.  This  list  contains  the  originating 


address  cf  the  forward  jump  and  the  address  of  the  instruc¬ 
tion  to  which  control  is  transferred.  Because  the  actual 
jump  address  is  used,  the  link  to  the  jump  location  is 
termed  relative.  Each  jump  node  is  dynamically  linked  to 
fcllcwing  jump  nodes  to  form  a  jump  list.  This  list  is,  in 
turn,  dynamically  pcinted  to  by  the  sequential  segment  in 
which  the  jumps  originate. 

To  capture  information  regarding  subroutine  invoca¬ 
tions,  the  same  type  cf  structures  is  used  as  fcr  th®  jump 
node  lists.  The  only  difference  is  that  the  subroutine 
lists  point  to  the  invoked  subroutine  in  a  dynamic  manner. 
That  is  to  say,  that  a  dynamic  pointer  is  set  to  the  first 
sequential  segment  of  the  invoked  routine  in  the  sequential 
segment  table.  This  is  basically  the  only  difference 
between  the  subroutine  invoke  list  and  the  forward  jump 
list . 

Figure  4.6  is  the  contour  diagram  of  a  conceptual 
grouping  cf  procedures  referred  to  as  the  SYSTEM  UTILITIES 
group.  These  procedures  are  not  explicitly  grouped  together 
by  code;  rather,  the  grouping  is  to  facilitate  discussion 
ar.d  understanding.  There  are  several  operations  within  this 
group  which  manipulate  the  data  objects. 

In  creating  the  linked  compiled  code  lisr  of  records 
two  separate  procedures  are  used.  The  first  procedure  is 
called  INPUT.  This  procedure  builds  the  initial  linked 
structure.  It  utilizes  an  input  file  containing  the  integer 
pairs  representing  Tl-59  code  steps.  Essentially  it  creates 
one  record  for  each  pair  and  links  the  previous  record  to 
the  new  record.  The  only  thing  not  dene  is  the  setting  of 
pointers  to  represent  an  indirection  in  the  flow  of  control. 

This  is  the  job  of  the  procedure  SET_JMPS.  In  this 
procedure,  the  major  activity  is  the  detection  in  the  actual 
keyccde  portion  cf  the  compiled  code  of  an  instruction  that 


represents  a  possible  change  in  control  flow.  When  one  is 
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detected,  a  jump  pointer  (the  irdir action  pointer)  is  set 
pointing  to  the  record  containing  the  next  11-59  program 
step  to  he  executed. 

The  operations  which  create  the  second  data  object 
are  a  little  more  complicated  and  are  contained  in  Figure 
4.7  The  action  of  building  the  sequential  segment  table 
data  structure  is  broken  down  into  three  steps.  The  first 
step  begins  the  formation  of  the  table  while  the  second  step 
completes  segment  detection.  The  last  step  captures  ether 
information  and  ensures  that  internal  interfacing  require¬ 
ments  are  met. 

The  first  part  of  this  procedure  is  accomplished 
through  the  BL  D_  FR I M  S  EGT  BL  procedure.  This  operation  passes 
over  the  compiled  codelist  structure  and  determines  where  a 
subroutine  starts,  steps,  or  issues  a  back  jump  command,  and 
locates  the  terminal  points  of  the  back  jump  commands.  Each 
of  these  points  is  called  a  critical  point.  When  detected, 
each  critical  point  is  inserted  in  the  segment  tabie  data 
structure  under  the  header  node  containing  the  TI-59  subrou¬ 
tine  code  name  which  is  being  processed.  In  addition,  each 
of  the  jump  commands  with  their  initiation  and  termination 
points  are  inserted  into  the  structure.  This  completes  the 
first  major  step. 

The  second  operation  is  accomplished  through  the 
BLD_ AGVSEGTEL  procedure.  In  this  procedure  the  initialized 
data  structure  is  fleshed  out.  Up  to  now  only  critical 
points  have  been  inserted.  As  these  are  points  and  are  not 
double  ended,  segments  have  not  been  delineated.  This 
procedure  examines  the  segment  data  structure  and  adds 
points  tc  delineate  where  a  segment  starts  and  ends.  It 
does  this  by  subtracting  one  from  the  point  following  it  and 
taking  this  to  be  its  end  point.  This  results  in  a  series 
of  records  which  are  all  covered  by  an  iterative  backlocp, 
with  the  exception  cf  the  first  record.  This  is  noted  in 
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the  reccid.  Next,  the  procedure  examines  the  modified 
structure  and  determines  by  examining  the  addresses  where 
there  are  holes  in  the  table.  These  holes  correspond  to 
sequential  segments  that  are  not  covered  Dy  an  iterative 
bdcklccp.  These  records  are  then  inserted  into  the  struc¬ 
ture.  Lastly,  adjacent  segments  that  are  covered  are  merged 
tc  fcrm  cne  record  representing  a  sequential  segment  that  is 
covered  by  the  largest  iterative  backloop. 

The  segment  table  structure  is  completed  in  the  last 
procedure,  called  ELD_?IN SEGTBL .  In  this  operation  two 
primary  things  happen.  First,  F30CES5_S  ERS  EGTBL  evaluates 
the  compiled  code  list  and  determines  where  forward  jumps 
and  subroutine  invocations  occur.  It  inserts  these  loca¬ 
tions  into  the  proper  sequential  segment  that  covers  the 
area  where  the  call  or  invocation  occurs.  Second, 
SET T_ LENGTH  checks  that  each  sequential  segment  dees  not 
violate  the  memory  size  limit  of  the  cal'-  lator.  It  dees 
this  by  checking  each  sequential  segment  record  and  calcu¬ 
lating  a  sire.  If  the  size  is  too  great,  then  the  segment 
is  divided  in  half  and  a  new  segment  is  inserted  into  the 
table.  Ibis  is  not  dene  for  segments  that  are  covered  by  an 
iterative  loop  as  this  would  represent  a  break  of  an  itera¬ 
tive  loop.  Other  actions  that  must  occur  include  readjusting 
forward  jump  lists  and  subroutine  invocation  lists  if  a 
division  dees  occur.  One  interesting  point  worth  noting  La 
that  when  the  length  check  is  made  additional  steps  must  be 
allocated  tc  the  actual  length  tc  compensate  for  the  possi¬ 
bility  of  prompting  code  being  added  for  an  invocation  tc  a 
subroutine  that  does  not  currently  reside  in  memory.  This 
is  the  purpose  of  L_ECSSBRK  ir.  Figure  4.7. 

The  data  structure  operational  procedures  access  the 
data  structures  through  pointers  which  point  tc  the  struc¬ 
tures.  The  pointer  tc  the  compiled  code  list  is  referred  to 
as  BUILT  CODE.  The  pointer  to  the  sequential  segment  table 


structure  is  called  SFGTBL.  These  are  the  only  data  which 
are  passed  among  procedures.  One  point  to  remember  is  that 
SEGTBL  points  to  the  header  node  list  containing  the  names 
of  the  subroutines.  The  actual  sequential  segment  lists 
reside  underneath  the  header  nodes. 

Since  understanding  the  data  structure  and  its 
construction  is  essential  to  understanding  the  remainder  of 
the  linker,  an  example  will  be  examined  to  demonstrate  the 
preceding  sections. 

In  Figure  4.8  a  sample  topology  of  a  TI-59  program 
is  given.  It  includes  four  subroutines  of  various  sizes  and 
with  various  control  flow  indirections.  In  looking  at  the 
diagram  it  is  important  to  note  the  absolute  address  loca¬ 
tions  given,  for  these  will  be  critical  to  understanding  the 
development  of  the  sequential  tables. 

As  was  mentioned,  the  first  operation  is  the 
restructuring  of  the  generated  TI-59  code.  Figure  4.8 
represents  approximately  this  structuring.  The  actual  code 
line  is  rebuilt  internally  in  the  machine  and  is  pointed  to 
by  pointer  EOILT_CODE. 

Figure  4.9  is  the  completed  sequential  segment 
table,  without  the  linked  header  node  list.  Tc  understand 
the  concept  of  sequential  segment  a  comparative  look  at 
Figures  4.8  and  4.9  must  be  made.  In  Figure  4.9  the  first 
sequential  segment  is  defined  as  being  between  addresses  000 
and  049.  This  is  reflected  in  Figure  4.8.  When  looking  at 
the  sequential  record  one  sees  that  the  forward  jump  infor¬ 
mation  is  captured  in  the  forward  jump  list  node  which,  in 
this  case,  is  only  one  node  long.  When  looking  at  the 
second  sequential  segment  one  notes  that  there  is  a  nested 
back  jump.  The  sequential  segment  is  defined  to  be  that 
segment  which  is  covered  completely  by  back  jumps.  In  this 
case  it  extends  from  050  to  199.  If  for  some  reason  the 
back  jumps  shown  in  Figure  4.8  did  not  fully  contain  each 
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ether,  that  is  to  say,  one  jump  started  at  199  and  stcpcei 
at  090  and  the  other  started  at  150  and  stopped  at  050,  then 
the  cover  wculd  still  extend  from  050  to  199.  The  reason  is 
that  this  region  of  cede  is  probably  caught  in  ar.  iterative 
loop  and  cannot  under  any  circumstances  sustain  a  break 
within  this  cover. 

Another  point  to  be  made  is  the  manner  in  which  °ach 
subroutine’s  sequential  segments  are  recorded  together.  In 
addition  each  invocation  is  recorded  as  is  each  forward 
jump.  During  the  completion  of  the  table,  invocations  to 
the  same  routines  frem  different  invocation  locations  are 
deleted,  thus  leaving  only  one  link  to  the  called  routine 
for  that  sequential  segment. 

A  final  point  concerns  the  recursive  nature  of  the 
structure.  By  assuming  that  the  first  subroutine  is  the 
main  routine  and  that  all  other  lower  level  routines  are 
below  it  (in  the  sense  that  they  are  pointed  to  from  invoca¬ 
tion  nodes)  one  can  see  that  any  routine  used  to  combine 
segments  can  be  used  on  any  subroutine's  sequential 
segments.  This  opens  the  door  for  recursion  to  be  used  in  a 
bottem  up  recombination  scheme  to  be  discussed  later. 

Many  problems  were  encountered  in  the  development  of 
the  preprocessor  phase  of  the  linker.  Only  the  most  diffi¬ 
cult  or  annoying  will  be  discussed. 

Cne  of  the  first  problems  concerned  the  multiple 
meaning  cf  program  steps  in  the  generated  TI-59  code.  A 
separate  TI-59  program  step  may  be  either  a  command, 
register  number,  flag  number,  or  part  of  an  address.  The 
meaning  is  dependent  on  the  last  valid  command.  Commands 
can  affect  the  interpretation  of  a  program  step  as  far  as 
three  step  positions  away  (analogous  to  the  concept  cf  cce- 
byte,  twe-byte,  and  three-byte  instructions  in  assembly 
code)  .  This  had  to  be  taken  into  account  when  dcina  any 
operation  requiring  an  interpretation  of  the  code.  This 
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resulted  in  special  cede  sets  being  initialized  and  special 
routines  being  written  to  print  our  labels  and  neve  -he 
compiled  code  list  pointers.  All  of  these  are  shown  in 
Figure  4.6. 

Improvements  in  this  operative  phase  could  be  real¬ 
ized.  In  the  early  stages  it  was  decided  to  separate  the 
compiled  code  lists  from  the  segment  table  lists.  This  was 
to  avoid  accidental  tampering  with  the  compiled  code,  since 
the  integrity  of  the  compiled  code  was  the  paramount  consid¬ 
eration.  It  would  he  possible  to  make  the  compiled  code 
lists  a  variant  of  the  segment  table.  Then,  inster5  of 
having  relative  pointer  indexes  to  compiled  code  addresses, 
an  absolute  pointer  could  be  used.  This  may  reduce  the  size 
of  the  program  significantly  in  that  types  would  new  be 
compatible  and  a  reduction  in  the  number  of  output  routines 
due  to  the  different  types  would  be  realized. 

2 .  Segmentor 

After  the  input  file  has  been  preprocessed  then  the 
linker  passes  into  the  segmenting  phase  of  the  operation. 
The  routines  that  support  this  phase  are  built  into  the 
Fascal  procedure  called  COALESCE  depicted  in  Figure  4.10. 

The  informal  strategy  called  for  the  sequential 
segments  of  a  subroutine  to  be  combined  to  form  larger 
sequential  segments.  This  recombination  would  be  allowed  as 
long  as  memory  limits  were  not  violated.  This  required  that 
invoked  subroutines  be  combined  first  before  the  caller  so 
as  to  make  room  for  the  invoked  routine’s  code.  If  the 
invoked  routine  could  not  reside  then  a  break  was  placed  in 
the  dynamic  link  to  the  invoked  routine  and  prompting  code 
added  to  the  caller's  length  for  memory  size  checking 
purposes. 
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This  strategy  has  one  major  requirement:  the 

invoked  routine  must  be  recombined  before  the  caller  car.  be 
recombined.  For  this  reason  a  recursive  solution  was 
adopted.  In  this  solution,  the  main  subroutine  is  recom¬ 
bined.  The  first  Fart  of  the  recombination  process  is  to 
ensure  that  invoked  subroutines  will  reside  with  the  calling 
sequential  segment.  If  a  subroutine  is  encounterd  that  is 
not  combined  or  coalesced,  then  the  program  will  recurse  on 
the  new  routine.  Recursion  will  close  out  upon  completion 
of  coalescing  of  a  particular  routine.  When  all  the  sequen¬ 
tial  segments  have  been  checked  then  adjacent  segments  are 
combined. 

Another  part  of  the  strategy  calls  for  the  combina¬ 
tion  process  to  stop  when  a  size  limit  is  encounterd.  when 
this  happens  then  seme  sort  of  break  notation  must  be  used 
to  mark  where  the  limit  was  exceeded  so  as  to  prevent 
production  cf  code  segments  that  exceed  the  memory  capabili¬ 
ties  of  the  calculator.  After  the  break  has  been  set  then 
the  process  of  recombination  begins  on  the  other  side  cf  the 
break  with  the  ncn-ccmbined  segments,  starting  again  with  a 
memory  limit  of  zero. 

This  process  cf  breaking  and  checking  limits  results 
in  the  sequential  segment  table  containing  break  points. 
These  break  points  delineate  the  exact  locations  where 
program  segmentation  will  occur.  These  points  will  mark 
those  portions  cf  code  which  can  fit  in  the  calculator 
memory  according  to  the  rules  of  segmentation  outlined  in 
the  preliminary  design. 

The  data  structure  that  supports  this  strategy  is 
the  sequential  segment  table.  No  other  structure  is  used. 
The  only  addition  tc  the  structure  is  the  node  referred  to 
as  a  subroutine  invocation  break  node.  This  node  is 
inserted  between  a  subroutine  invocation  list  node  and  the 
invoked  subroutine  sequential  segment  table. 
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changes  to  the  structure  involve  removing  nodes  and 
combining  adjacent  information  into  one  node. 

There  are  two  major  activities  that  support  the 
above  strategy.  The  first  activity  is  the  checking  of  a 
segment  and  the  second  activity  is  the  combining  of  adjacent 
segments.  Overseeing  these  activities  is  a  single  driver. 
This  topology  was  suggested  by  the  recursive  nature  of  the 
solution.  The  procedures  which  support  these  activities  are 
shown  in  Figure  4.10. 

The  driver  is  represented  by  the  Pascal  procedure 
COALESCE.  This  routine  is  called  whenever  a  new  subroutine 
is  encountered  that  has  net  been  combined  or  coalesced.  The 
interior  Pascal  procedure  CHK_SEGSIZE  verifies  that  the 
specific  segment  it  is  looking  at,  together  with  all  called 
subroutines  on  the  subroutine  invocation  list  for  that 
segment,  will  reside  in  calculator  memory.  This  routine 
uses  SBESUM  and  SBESU.MLINK  to  determine  the  lengths  of 
invoked  routines.  It  recurses  mutually  by  calling  COALESCE 
in  the  event  that  an  invoked  routine  has  not  yet  been  coal¬ 
esced.  It  determines  this  by  looking  at  a  boolean  field  in 
the  segment  table.  This  field  is  set  true  if  the  subroutine 
has  been  coalesced.  The  other  procedure,  COMBINE,  accom¬ 
plishes  the  actual  combination  of  adjacent  sequential 
segments.  It  uses  the  length  predictor  routines 
MOD_SOJJTCTF_JMP  and  MOD_S  UMTOTSBR  to  predict  a  combined 
length  which  takes  into  account  any  changes  that  might  occur 
in  the  subroutine  invocation  or  forward  jump  lists.  If  the 
combined  length  is  within  limits  then  a  recombination 
occurs;  if  not,  pointers  are  advanced.  This  means  that  any 
sequential  segment  records  which  follow  the  initial  sequen¬ 
tial  segment  records  are  part  of  a  new  memory  calculation. 
In  ether  words,  any  sequential  segment  links  that  are  not 
nil  represent  a  break  between  the  linked  sequential 
segments.  Upon  exiting  COALESCE,  the  subroutine  that  has 
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just  been  coalesced  is  narked  as  such  m  the  sequential 
record*s  tcclean  field  reserved  for  that  information. 

To  visualize  the  result  of  the  segmenting  phase 
another  lcck  at  the  example  is  provided.  Figure  4.11  repre¬ 
sents  a  segmentation  based  on  a  memory  limit  of  550  steps. 
Note  that  each  of  the  invoked  subroutines  has  been  coalesced 
into  a  single  sequential  segment.  Also  note  that  a  break 
was  made  in  the  main  subroutine.  This  is  shown  by  the  fact 
that  the  main  routine  is  not  a  single  segment  record.  By 
examining  the  table  it  can  bee  seen  that  the  routine 
labelled  "C"  will  be  copied  twice  when  the  two  memory  sized 
segments  are  produced. 

To  interface  between,  modules  in  this  recursive  envi¬ 
ronment  several  things  were  assumed  or  used.  The  first  was 
that  the  data  structure  would  serve  as  the  repository  of 
global  data.  In  addition,  a  variable  would  be  used  to  keep 
track  of  the  current  size  of  the  combining  memory  program 
steps.  This  variable  was  passed  as  a  parameter  in  order  to 
preserve  its  value  throughout  the  recursion.  All  pointers 
were  passed  as  local  parameters.  This  preserved  locations 
in  the  data  structure  as  the  algorithm  progressed  through 
the  different  levels  cf  recursion. 

These  operations  did  require  some  other  work  in 
crder  to  obtain  valid  data  that  would  correctly  calculate 
code  lengths  to  include  multiple  copies  of  subroutines.  The 
problem  occurred  when  there  were  multiple  invocations  to  the 
same  subroutine  from  different  segments  (or  even  different 
subroutines)  that  up  to  now  were  all  included  in  the  same 
memory  limit  calculation.  To  solve  this  another  field  was 
placed  in  the  segment  record  to  indicate  whether  or  not  the 
particular  routine  had  been  included  or  not  in  length  calcu¬ 
lations.  Whenever  a  sum  was  calculated  and  a  routine 
included  then  the  field  was  set  true.  Whenever  a  new  memory 
limit  was  reset  back  to  zero  followina  the  implantation  of  a 
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break  point,  a  SYSTEM  UTILITY  procedure  was  used  to  reset 
all  the  included  fields  back  to  false.  This  means  that  only 
one  ccpy  cf  a  subroutine  would  be  considered  for  each  calcu¬ 
lator  sized  memory  computation. 

Future  implementations  should  develop  a  better 
method  for  recording  whether  a  segment  is  coalesced  or 
included.  The  inclusion  of  this  field  in  the  segment  fable 
record  was  a  "quick  fix."  This  fix  results  in  wasted 
storage  as  it  is  only  used  in  the  first  record  for  each 
subroutine.  An  improvement  would  be  to  use  another  variant 
record  to  record  all  current  data,  with  the  exception  of 
coalesced  and  included  information,  for  all  other  sequential 
segment  nodes  other  than  the  first  sequential  segment  node. 
This  would  save  memory. 

3*  lest  Processor 

After  the  segmentation  phase,  the  linker  passes  into 
the  postprocessor  phase.  It  is  this  phase  that  provides  the 
required  output  for  the  user. 

The  informal  strategy  divides  this  phase  info  three 
distinct  operations.  The  first  operation  designates  the 
start  of  each  calculator  sized  segment  of  code.  These 
segments,  which  meet  the  memory  requirements  of  the  calcu¬ 
lator,  are  referred  to  as  memory  modules.  The  second 
operation  copies  the  required  code  into  each  segment  and 
inserts  any  segmentation  prompting  instructions  that  are 
needed  for  successful  code  execution.  The  last  operation 
consists  cf  ouputting  the  segmented  •  code  in  a  user  friendly 
instruction  sheet  format.  This  completes  all  linker 
actions. 

In  order  to  support  the  informal  strategy,  several 
data  structures  are  used,  two  of  which  were  described 
earlier.  They  are  +he  segment  table  and  the  compiled  code 
list.  At  this  point  the  segment  table  has  been  coalesced 
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and  contains  the  locations  cf  the  segmentation  breaks  that 
will  minimize  card  reads.  The  compiled  code  will  be  copied 
by  segment  as  delineated  in  the  segment  table.  A  third 
structure  is  built  in  this  phase  and  a  fourth  structure  is 
provided  with  the  program. 

The  third  structure  is  refered  to  as  the  memory 
module  data  structure.  It  is  a  Pascal  variant  of  the 
segment  table,  which  allows  compatible  pointer  references 
between  the  two  objects.  The  structure  consists  of  a  linked 
list  of  head  nodes,  which  are  named  by  respective  memory 
module  number.  They  represent  one  calculator's  worth  cf 
available  memory  programming  steps  as  determined  by  the 
calculator  partition.  Zac h  node  of  this  linked  list  points 
to  two  locations.  Cne  location  is  to  the  first  sequential 
segment  table  record  node  following  a  segmentation  break. 
The  second  link  is  tc  the  copied  coda  that  will  make  up  the 
programming  steps  of  the  memory  module.  In  Figure  4.11, 
there  would  be  two  memory  module  header  nodes.  The  first 
header  ncde  always  pcints  to  the  first  sequential  segment  of 
the  main  subroutine.  In  the  example  this  first  memory 
module  would  be  pointing  to  the  nods  beginning  with  address 
000.  The  second  memory  module  node  would  point  to  a  record 
that  follows  a  break.  This  would  be  tc  the  sequential 
segment  ncde  beginning  with  address  290.  Just  as  there  are 
no  ether  breaks,  there  are  no  ether  memory  module  nodes. 
The  other  pointers  would  point  to  a  linked  list  cf  cede. 

The  copied  compiled  code  list  is  a  part  of  the 
memory  mcdule  data  structure.  It  is  another  Pascal  variant 
cf  the  same  record  type.  This  list  is  similar  in  structure 
tc  the  compiled  code  list  reproduced  during  the  preprocessor 
phase.  The  cnly  difference  is  in  type.  Another  difference 
is  that  there  are  no  jump  pointers  or  dynamic  pointers  indi¬ 
cating  a  change  in  flew  of  control.  The  structure  is  just  a 
linked  list  of  sequential  code.  This  structure  is  pointed 
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to  by  the  memory  module  header  node.  Another  point  re  be 
made  is  that  the  licked  cede  list,  when  completed,  dees 
contain  ether  code  that  is  needed  for  prompting.  As  such  it 
is  ret  a  one  for  one  copy  of  the  compiled  code  list. 
Lastly,  a  look  at  Figure  4.11  will  show  exactly  the  segments 
of  cede  that  can  be  expected  to  form  the  two  memory  module 
structures.  By  looking  at  the  sequential  segment  nodes  and 
following  their  dynamic  pointers  of  the  subroutine  lists  all 
required  cede  start  and  stop  addresses  ar«  given.  It  is 
this  "lock  down”  facility  of  the  sequential  segment  table 
that  make  it  so  useful. 

The  fourth  data  object  is  provided  with  the  linker 
program.  It  is  a  textual  file  which  contains  text  messages 
which  are  used  by  the  linker.  Each  message  is  delineated  by 
a  $XXX  where  XXX  is  an  integer.  The  linker,  when  provided 
the  number  portion  cf  a  message,  can  easily  locate  the 
message.  Cnee  located  it  can  either  extract  values  or  copy 
the  message  verbatim  to  an  output  file.  This  is  what  occurs 
during  the  formatting  of  the  instruction  messages. 

The  operations  that  build  and  manipulate  the  data 
structures  function  in  three  phases.  Figure  4.12  is  the 
contour  diagram  of  the  subroutine  that  supports  these 
eper atiens. 

The  first  operation  is  the  construction  of  the 
header  memory  module  nodes.  This  is  accomplished  by  the 
Pascal  procedure  BLD_MEM0DULEN0DE5  depicted  in  Figure  4.  12. 
This  procedure  traverses  the  segment  table  and  looks  for 
break  points.  When  it  finds  one,  it  checks  to  see  if  the 
break  has  already  been  detected.  If  it  has  not  been 
detected  then  it  builds  the  header  node  and  assigns  it  a 
memory  module  number.  The  reason  for  the  check  is  that  the 
traversing  mechanism  is  based  on  recursion.  In  this 
strategy,  traversing  is  begun  with  the  main  subroutine.  In 
Figure  4.11  this  would  correspond  to  subroutine  L3L  A,  node 
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start  address  000.  It  then  searches  right  along  ch  =  same 
subroutine  tc  detect  all  breaks  of  than  subroutine.  Then  it 
resets  back  to  the  start  of  L3L  A  and  begins  to  check  -he 
subroutine  list  of  each  node  that  comprises  LBL  A. 
Recursion  is  implemented  at  this  point  when  the  subroutine 
link  is  traversed  and  another  subroutine  is  discovered.  If 
a  break  is  discovered  in  the  subroutine  list  then  another 
memory  header  node  is  built  and  the  program  bypasses  the 
break  and  recurses  on  the  next  subroutine.  This  traversal 
mechanism  leads  to  multiple  discoveries  of  the  same  breaks. 
Consequently,  the  check  is  made  to  ensure  multiple  copies 
are  net  placed  in  the  memory  module  header  list. 

The  next  operation  consists  of  copying  code  from  the 
compiled  list,  resetting  address  key  codes  for  jumps  and 
adding  prompting  code  to  each  specific  memory  module  code 
list.  Figure  4.12  contains  the  Pascal  procedure 

BLD_MEMODOLECODE  which  accomplishes  the  above  tasks.  This 
is  done  by  moving  down  the  memory  module  header  list  in  a 
sequential  fashion.  At  each  header,  the  link  to  the  segment 
table  is  traversed  tc  determine  exactly  what  segments  of  the 
compiled  code  are  to  be  copied.  This  is  the  duty  of 
BLD_A_MEMC5T  in  Figure  4.12.  Once  the  start  and  step  points 
are  determined  and  copied  then  recursion  is  utilized  to 
traverse  the  subroutine  links  of  the  sequential  segment 
table  to  obtain  the  required  copies  of  resident  subroutines 
to  support  the  functioning  of  higher  level  segments.  During 
this  operation  the  segment  table  is  used  as  a  "check  pad," 
that  is,  copies  are  marked  included  after  being  copied  and 
are  reset  upon  completion  of  copying.  Another  function 
accomplished  during  the  processing  of  a  memory  module 
segment  is  the  addition  of  prompting  code.  Lastly, 
addresses  are  reset  and  justified  to  include  the  resetting 
of  jump  address  key  codes  to  reflect  new  jumps  to  internal 
prompting  messages  and  the  absolute  address  of  the  origi¬ 
nally  compiled  code  list. 
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Cnee  the  memory  module  data  structure  is  complete 5 
then  the  structure  is  presented  to  the  user  in  an  instruc¬ 
tion  type  cf  format.  This  is  the  purpose  of  the  Pascal 
procedure  OUTPUT_INSTB.  This  procedure  utilizes  two  data 
structures.  It  uses  the  provided  message  file  structure  and 
the  memory  module  structure.  The  first  action  is  to  output 
the  instruction  introduction.  This  the  procedure  does 
through  the  use  of  the  message  file  and  the  SYSTEM  UTILITITY 
programs  FIND_MSG,  PPINTLN_HSG  and  PS INT_LINEMSG .  These  are 
depicted  in  Figure  4.6.  These  procedures  allow  the  linker 
to  copy  verbatim  messages  in  preformatted  form.  Once  this 
is  dene  the  procedure  copies  the  codelist  from  each  of  the 
memory  module  lists  cf  code.  Once  a  specific  module  is 
copied  the  driver  routine,  CUTFUT_MSG.P1 ,  prints  out  specific 
information  to  delineate  each  memory  module.  After  this 
acticr.  is  accomplished,  the  procedure  traverses  the  segment 
table  and  prints  cut  additional  user  information  that  will 
aid  the  user  in  the  execution  of  his  program. 

Interfaces  between  modules  are  accomplished  as  usual 
with  pointers.  These  pointers  point  tc  their  respective 
data  structures.  Global  information  is  recorded  in  the  data 
structures  or  in  special  global  variables  which  are  passed 
as  parameters  during  recursive  operations. 

Cne  majer  problem  that  was  encountered  and  solved  in 
an  interesting  manner  concerns  the  formatting  of  the  output. 
The  vast  amount  cf  instructional  information  that  was 
required  to  be  output  made  inclusion  in  the  source  cede 
ridiculous.  To  solve  this,  the  message  file  system  was 
developed.  This  system  consists  of  a  text  fils  containing 
preformatted  messages  and  a  several  procedures  located  in 
the  SYSTEM  UTILITIES  contour  in  Figure  4.6.  Each  message  is 
delineated  by  a  "$"  and  a  number.  Two  types  of  messages  can 
be  processed.  One  kind  of  message  results  in  a  complete 
copy  frem  the  first  line  following  the  message  cede  (3XXX) 


down  to  the  line  preceding  the  next  "$"  encoutered.  The 
ether  messages  are  ore-line  messages  which  copied  until  the 
•'$"  at  the  end  cf  the  message.  This  gives  the  programmer 
the  capability  to  write  out  blocks  of  text  and  to  write  cut 
text  and  computer  generated  information  on  the  same  line. 

Another  capability  provided  by  the  package  is  the 
ability  to  search  out  messages  from  other  files.  The  proce¬ 
dure  FINC_MSG  takes  as  parameters  a  file  as  well  as  a 
message  number.  This  facility  allowed  the  linker  tc  be 
loosely  ccupled  with  the  cross-compiler  by  interfacing  with 
a  message  number  coded  file  produced  by  the  cross-compiler. 
All  that  the  linker  needed  to  know  was  under  which  number  a 
required  piece  cf  information  was  coded  and  the  interface 
file  name  tc  affect  an  interface. 

An  improvement  might  be  realized  in  the  output  of 
the  generated  code  list.  Currently  there  are  two  separate 
sets  cf  prccedures  used  to  output  code  lists.  This  was 
primarily  due  to  typing  differences.  However,  the  seccnd 
set  cf  print  procedures  located  in  INSTRUCTIONS  (see  Figure 
4.12)  is  probably  mere  efficient.  Furthermore,  if  the 
reconstructed  code  were  changed  to  be  a  variant  of  the 
segment  table  structure  then  a  reduction  in  Pascal  cede 
lines  would  be  realized  through  the  elimination  of  a  cede 
list  croup  cf  printing  procedures.  A  further  increase  in 
efficiency  may  be  realized  ir.  any  operations  requiring  use 
cf  the  reconstructed  compiled  code  list. 

C.  INTERFACE  ENGINEERING 

In  any  detailed  design,  careful  consideration  must  be 
given  to  interfacing  criteria.  Interfacing  criteria  should 
be  as  explicit  as  possible,  however  this  is  not  always 
possible.  Sometimes,  design  decisions  or  engineering  inter¬ 
pretations  have  implications  that  affect  other  modules  or 


submodules.  These  are  generally  of  an  indirect  nature  ir. 
that  the  interface  is  implied  in  tne  system  structure  ar.d  is 
not  explicitly  passed  from  module  to  module. 

These  types  of  interfaces  surface  in  the  detailed  design 
phase.  Decisions  regarding  TI-59  address  labelling  and 
structure  cf  the  TI-59  subroutine  greatly  affected  the 
design.  In  addition,  assumptions  about  the  use  of  struc¬ 
tured  programming  and  the  prohibition  of  recursive  WEASIC 
programs  facilitated  system  design.  Simple  redefinition  of 
the  use  cf  WEASIC  commands  HEAD/DATA  provided  any  easy  form 
cf  I/C,  tut  again  was  an  implied  interface.  These  types  of 
implied  interfaces  will  be  examined  in  the  following 
sections  since  they  are  critical  to  understanding  the  system 
operations  and  to  future  maintenance. 

1  •  Addressing  TI-59  SB R 

Cne  implied  interface  resulted  from  a  decision  on 
the  mechanism  of  subroutine  invocation  which  would  be  used 
by  the  system.  This  decision  arose  from  the  fact  that  the 
TI-59  calculator  may  invoke  subroutine  code  in  several 
different  ways. 

To  understand  why  a  decision  was  required  a  lock  at 
the  subroutine  naming  conventions  and  procedure  for  invoca¬ 
tion  are  in  order.  A  subroutine  name  is  composed  of  two 
program  steps.  The  first  step  is  the  keycode  76.  This  is 
the  LEL  cede.  It  tells  the  calculator  that  the  next  key  is 
a  subroutine  name.  The  next  program  step  is  the  actual 
subroutine  name.  The  keys  which  may  serve  as  actual  subrou¬ 
tine  names  ray  be  one  of  two  types.  The  first  type  comes 
from  keys  which  are  undefined.  That  is  to  say  the  keys  are 
not  used  by  the  calculator  to  perform  calculator  functions; 
they  are  strictly  reserved  for  naming  subroutines.  The 
ether  type  cf  name  comes  from  defined  keys.  By  this  we  mean 
that  the  calculator  uses  the  keys  in  some  fashion  in 


addition  to  naming  subroutines.  These  keys  are  overloaded: 
they  can  have  two  meanings. 

lc  define  which  meaning  is  to  be  interpreted  the 
calculator  requires  that  a  subroutine  definition  be  preceded 
with  a  special  key  called  the  label  key.  This  alerts  the 
calculator  to  the  fact  that  the  next  program  step  is  a 
subroutine  name.  To  invoke  a  subroutine,  the  calculator 
requires  double  meaning  labels  to  be  preceded  with  a  special 
key  called  the  invocation  key.  This  alerts  the  calculator 
to  the  double  meaning  much  as  the  label  key.  For  undefined 
keys,  this  alert  key  is  not  required  though  its  use  will  not 
alter  any  transfers.  There  exists  another  method  of 
invoking  subroutines.  This  calls  for  the  invocation  alert 
key  to  be  followed  by  an  absolute  address.  It  is  the 
duality  cf  meanings  which  presented  problems. 

Tc  overcome  these  problems  two  decisions  were  made. 
The  first  decision  required  that  all  undefined  keys  be 
treated  as  if  they  were  defined  keys.  This  resulted  in  only 
one  case  tc  be  developed  tc  handle  subroutine  naming.  The 
penalty  for  this  decision  is  that  an  added  step  was  gener¬ 
ated  whenever  an  undefined  key  was  used  as  a  label  and  a 
call  to  that  label  was  made.  The  other  decision  disallowed 
the  use  of  absolute  addresses  in  the  subroutine  invocation. 


411  invocations  would  use  labels. 


This  decision  carried  a 


penalty  in  terms  of  execution  speed.  The  calculator  must 
search  program  step  memory  to  locate  named  subroutines 
whereas  address  references  can  be  reached  directly.  On  the 
other  hand  there  are  several  benefits.  One  program  step  was 
saved  since  a  label  requires  only  one  step  whereas  an  abso¬ 
lute  address  requires  three.  The  other  benefit  permitted 
the  definition  of  the  invocation  alert  key  as  a  two  step 
instruction  and  not  a  two  or  three  step  instruction.  This 
was  the  primary  reason  for  this  implementation.  All  of  the 
system  was  designed  with  this  decision  in  mind. 


2. 


Structured  Subroutines 

A  problem  arose  with  the  defining  of  subroutines. 
The  calculator  permits  subroutines  to  be  defined  within 
other  subroutines.  Though  this  in  itself  is  net  extraordi¬ 
nary,  the  fact  that  nested  definitions  may  be  closed  cut 
with  the  same  subroutine  return  key  is  not  usually 
permitted.  This  type  of  structure  made  subroutine  detection 
for  segmentation  purposes  very  difficult. 

To  solve  this  problem  it  was  decided  tc  allow  only 
structured  subroutine  definitions.  That  is  to  say,  only  one 
return  was  permitted  for  each  label.  In  addition,  it  was 
decided  to  disallow  nested  definitions.  In  fact,  the  deci¬ 
sion  was  made  to  reguire  that  the  programmer  position  his 
main  program  first  in  WBASIC  source  code  and  to  have  all  of 
his  subroutines  follow  in  the  manner  described  above. 

This  interface  design  decision  forced  a  specific 
program  structure.  This  structure  was  easy  to  detect,  easy 
to  compile  and  easy  tc  segment.  These  benefits  were  real¬ 
ized  at  a  cost  of  net  being  able  to  generate  efficient  or 
"tricky"  code  and  of  reducing  the  programmer's  leeway  in 
developing  his  WEASIC  source  code  program  structure. 

3 .  gecursion 

Although  TI-59  calculator  instructions  tend  tc  be 
evasive  on  the  subject,  recursive  programs  can  be  executed 
in  a  few  special  situations.  Some  SASIC  languages  support 
recursion,  others  dc  not.  Although  the  WBASIC  language 
supports  recursion,  limitations  imposed  by  the  calculator 
forced  us  to  disallow  the  translation  of  recursive  source 
programs,  ether  reasons  for  this  decision  involved  complex¬ 
ities  which  such  programs  would  present  to  the  linker. 


4  •  It  put/Output 


The  development  of  the  ir.p ut/output  structure  was 
designed  around  the  three  major  limitations  of  the  calcu¬ 
lator:  programming  steps  available,  storage  registers 

available,  and  the  calculator  numeric  display.  In  order  to 
develop  an  efficient  system  to  allow  for  input  and  output, 
restrictions  were  placed  on  some  WBASIC  commands. 

Since  the  calculator  display  allows  only  numeric 
input  and  output,  then  any  information  passed  between  a 
human  operator  and  the  calculator  must  be  in  numeric  form. 
Prompts  used  to  communicate  with  the  human  must  be  imbedded 
in  the  compiled  code.  In  the  case  of  input  and  output, 
these  prompts  have  an  overhead  in  that  they  use  up  valuable 
programming  steps.  For  example,  with  each  INPUT  command  in 
WBASIC,  a  total  of  seven  steps  are  generated  to  produce  a 
prompt  and  store  a  value  in  the  calculator.  The  problem 
with  this  occurs  when  large  numbers  of  variables  need  to  be 
input.  If  60  variables  are  required  for  input  then  the 
INPUT  command  will  generate  420  steps.  This  is  clearly 
unacceptable. 

Tc  solve  this  problem  the  semantics  of  the  WEA3IC 
commands  READ  and  DATA  were  modified.  Use  of  these  commands 
within  a  source  program  does  not  increase  the  number  of 
program  sreps  in  the  translation.  A  table  of  WBASIC  vari¬ 
able  names  assigned  to  TI-59  registers  is  produced  and 
placed  in  the  interface  file.  This  allows  the  human  to 
input  all  of  his  data  prior  to  execution  without  having  to 
pay  the  penalty  of  generating  extra  prompting  code. 

Another  decision  concerns  the  location  of  the  DATA 
and  READ  statements:  All  DATA/READ  pairs  must  occur 

together  at  the  beginning  of  the  program.  The  reason  for 
this  should  be  clear.  It  would  be  impossible  to  place  the 
commands  in  the  middle  of  the  program  because  they  would 
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have  no  effect.  With  the  exception  of  a  single  MOP  ( whz.cn 
is  eliminated  during  peephole  optimization)#  these  commands 
generate  no  code.  As  a  result,  no  run-time  modification  of 
variables  can  occur.  Furthermore,  DATA/READ  statements 
placed  within  loops  would  invalidate  the  DATA  to  3£AD 
mapping,  a  static  table. 

The  whole  purpose  of  the  redefinition  of  these 
commands  was  to  give  the  user  an  optional  form  of  I/C.  This 
was  expected  to  increase  the  efficiency  of  the  generated 
code.  These  decisions  influenced  much  of  the  desian  cf  the 


V.  TESTING 

The  test  program  and  its  generated  output  are  provided 
in  Appendices  K  through  P  of  this  report.  The  test  program 


was  chosen  for  several  reasons. 


The  first  reason  was  to 


test  the  actual  ability  of  the  system  to  produce  a  usafcle 
TI-59  coded  program.  The  second  reason  was  to  attempt  to 
cbtain  an  idea  as  to  the  efficiency  of  the  system-generated 
code.  The  following  sections  present  a  description  of  the 
test  program  and  comment  on  the  efficiency  of  the  generated 
code . 

A.  TEST  PROGRAM  DESCRIPTION 

In  developing  a  test  program  several  considerations  had 
to  be  taken  into  account.  The  first  consideration  required 
that  the  generated  cede  be  verifiable.  To  verify  the  gener¬ 
ated  code,  i*  was  decided  to  program  a  solution  to  a  problem 
for  which  verifiable  solutions  existed.  Verification  would 
be  achieved  if  the  system- generated  solutions  matched  these 
of  the  existing  solutions  for  the  same  inputs.  The  second 
consideration  was  to  attempt  to  arrive  at  some  sort  cf  effi¬ 
ciency  comparison  between  the  system  generated  TI-59  program 
and  an  optimized  hand  coded  TI-59  program. 

The  test  problem  which  was  selected  fit  the  abeve 
criteria.  First  of  all,  solutions  to  known  input  values 
existed.  This  ensured  proper  verification  of  the  generated 
code.  Secondly,  a  highly  optimized  hand  coded  solution  to 
the  problem  existed  for  comparison.  The  problem  selected  is 
called  the  "Gunnery  Problem.'* 


[»1«] 


The  gunnery  problem  is  to  determine  firing  data  for  a 
howitzer  cannon.  It  consists  of  inputting  the  following 
data:  piece  location,  target  location,  piece  corrections  and 
howitzer  ballistic  coefficients.  The  output  which  is  gener¬ 
ated  consists  of  time  to  target,  elevation  to  achieve  target 
hit  and  the  lateral  deflection  (an  angular  measurement)  to 
align  with  the  target. 

The  solution  involves  calculating  a  range  to  target  as 
well  as  an  azimuth  to  the  target.  The  azimuth  is  then 
converted  to  a  lateral  deflection,  which  is  understood  by 
the  piece  to  be  the  correct  azimuth  on  which  to  align. 
Next,  three  quadratic  equations  are  solved  to  determine 
elevation,  time  of  flight  and  shell  drift.  These  are 
applied  to  the  lateral  deflection  and  to  the  piece  eleva¬ 
tion.  A  decision  based  or.  the  calculated  range  to  target  is 
needed  to  ensure  correct  ballistic  coefficients  are  used  in 
the  computation.  These  coefficients  are  based  on  the  charge 
which  is  to  be  fired  to  achieve  the  range. 

The  hand  coded  version  solution  has  been  in  use  since 
1976.  The  accuracy  cf  this  version  was  checked  by  artillery 
ballistic  tables  and  by  the  Field  Artillery  Digital  Computer 
(FAD AC)  ,  the  recognized  source  of  all  correct  firing  data. 
Ey  using  this  solution,  vast  quantities  of  test  input  and 
output  were  available  for  program  verification  runs. 

The  hand  developed  version  is  highly  optimized.  For 
example,  the  hand  version  stores  eight  numbers  in  four 
storage  registers.  This  is  accomplised  by  storing  the 
numbers  on  either  side  of  the  decimal  point  in  a  real 
number.  This  real  number  is  then  decomposed  in  a  subroutine 
to  obtain  the  correct  number.  In  addition,  this  version 
makes  use  cf  calculator  commands  that  were  not  implemented 
by  the  EAX59.  For  example,  there  is  great  use  of  the  indi¬ 
rect  store,  decrement  and  skip  on  zero  and  polar  to 
rectangular  commands.  All  of  these  features  made  tha  hand 
codad  version  a  highly  optimized  program. 
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E.  TEST  COMMENTS 

The  w E ASIC  solution  was  coded  using  basically  the  same 
program  structure  as  the  hand  coded  solution.  This  source 
cede  is  presented  in  Appendix  K.  The  interface  file  gener¬ 
ated  by  the  cross-compiler  is  presented  in  Appendix  0.  The 
final  output  generated  by  the  linker  is  presented  in 
Appendix  E. 

In  verifying  the  accuracy  of  the  generated  code,  many 
runs  were  made  using  input  data  for  which  known  solutions 
existed.  There  were  no  deviations  from  the  known  solutions 
in  any  of  the  test  runs.  The  conclusion  is  that  the  gener¬ 
ated  code  was  accurate. 

In  comparing  efficiency  a  common  unit  of  measurement  was 
needed  for  comparison.  This  common  unit  was  chosen  to  be 
the  TI-59  program  step.  The  reason  for  this  is  simple. 
Both  registers  and  program  steps  reside  in  the  same  memory. 
Registers  occupy  eight  progra  ming  steps.  To  measure  how 
much  memcry  a  program  uses  it  was  only  necessary  to  multiply 
the  number  of  storage  registers  times  eight  and  add  it  to 
the  number  of  program  steps  to  arrive  at  a  figure  which 
measured  memory  usage  within  the  calculator. 

This  was  done  with  the  E AX 59  generated  cods  and  the  hand 
coded  programs.  The  hand  coded  solution  used  441  steps  and 
60  registers  for  a  total  step  count  of  921.  The  BAX59 
generated  code  used  652  steps  and  86  registers  for  a  total 
step  count  cf  1340.  This  represented  an  increase  over  the 
hand  coded  solution  cf  419  steps  or  a  45X  increase. 

A  time  to  solution  comparison  was  made  next  since  the 
primary  purpose  of  the  BAX59  system  is  to  allow  an  indi¬ 
vidual  to  quickly  obtain  a  program  capable  of  running  on  the 
TI-59  calculator.  Tc  begin  with,  the  hand  coded  version  was 
developed  by  three  individuals  over  a  period  cf  several 
weeks.  The  BASIC  program  used  as  input  for  the  BAX59  system 


took  crly  cn®  person  one  day  to  write  ana  debug.  The 
utility  cf  a  higher  level  language  greatly  simplified  the 
programming  process.  It  is  this  savings  in  programming 
development  which  makes  the  desirability  of  the  3AXS9  system 
readily  apparent. 

In  looking  at  the  system-generated  program  seme  mere 
comments  can  be  made  about  where  the  relative  overhead 
occurs.  Of  the  total  652  programming  steps  it  was  noted 
that  84  steps  were  due  tc  prompting  code.  Six  storage 
registers  were  used  as  manual  return  registers  while  cne 
register  was  used  as  a  temporary  display  storage  register. 
Another  register  was  used  in  the  manual  subroutine  return 
prompting  scheme.  This  totals  for  the  Linker  an  overhead  of 
148  programming  steps.  This  Linker  overhead  represents  11* 
of  the  total  generated  steps  indicating  that  the  compiler 
generated  at  least  34*  more  code  than  the  hand  optimized 
coded  program. 

One  last  comment  concerning  the  actual  running  of  the 
EAX59  generated  program  needs  to  be  made.  In  running  the 
BAX59  code  it  was  determined  that  time  of  execution  became 
totally  dependent  or.  the  amount  of  cards  required  to  be 
read  in  and  out.  If  the  head  reader  in  the  calculator  func¬ 
tioned  properly,  then  this  required  small  amounts  of  time  to 
accomplish.  If  however,  the  head  reader  malfunctioned,  then 
the  reading  of  cards  became  an  crdeal.  In  addition,  the 
user  had  tc  pay  close  attention  to  the  program  prompting 
scheme  or  he  would  become  lost  between  card  reads. 


VI.  CONCLUSION 


In  the  following  discussions,  tha  test  program  is  evalu¬ 
ated  together  with  the  actual  design.  Based  on  this 
evaluation  several  conclusions  are  drawn  and  recommendations 
presented. 

A.  EVALUATION  OF  TEST  RESULTS 

In  examining  the  test  data,  it  is  important  to  realize 
Thar  this  is  only  a  single  test.  As  such,  it  does  not 
represent  the  whole  set  of  BASIC  programs  which  may  be 
executed  by  the  BAX59  software  system.  However,  the  test 
does  give  ar.  insight  into  the  actual  efficiencies  which 
might  be  expected.  While  actual  numerical  data  is  given 
these  data  should  not  be  viewed  as  a  statistical  analysis  of 
the  system.  Rather,  the  data  is  meant  to  provide  seme  frame 
of  reference  for  the  discussion  of  system  efficiency. 

In  examining  the  test  program,  it  is  noted  that  excess 
code  generated  amounts  to  roughly  45*.  Of  this,  approxi¬ 
mately  11*  can  be  attributed  to  the  linker,  while  34*  can  be 
attributed  to  the  cross-compiler.  Although  the  total  over¬ 
head  seems  rather  large,  the  reason  for  building  the  system 
must  be  recalled.  The  primary  reason  is  to  facilitate  th= 
rapid  design  and  implementation  of  programs  on  the  TI-59 
calculator.  In  view  of  this,  it  becomes  clear  that  the 
overhead  is  secondary  to  the  problem.  Our  real  yardstick 
for  success  is  whether  or  not  TI-59  programs  can  be  devel¬ 
oped  mere  rapidly  than  hand  coded  programs.  The  test 
program  provides  an  insight  into  this  side  of  the  problem. 
Development  time  was  about  ;one  order  of  magnitude  faster 
comoared  to  the  hand  coded  solution. 
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This  rapid  development  time  more  than  justifies  the  high 
overhead.  This  is  true  in  most  academic  applications,  as 
most  program  executions  are  limited  in  nature.  If  or.  the 
other'  hand,  a  program  is  to  be  executed  many  times,  then  ar. 
optimized  hand  coded  program  might  he  better  than  the 
machine  generated  version.  The  final  decision  lies  with  the 
user.  His  program  execution  requirements,  and  the  amount  of 
time  he  has  available  to  design  and  build  his  solution,  will 
drive  his  selection. 

E.  CCNCIOSICNS 

In  view  of  the  target  machine  limitations,  it  is  prob¬ 
ably  safe  tc  concluded  that  the  system  is  a  valid  first-cut 
prototype.  The  prototype  proved  the  desirability  and  feasi¬ 
bility  of  the  concept,  that  quick  calculator  programming  can 
be  realized  with  the  minimum  of  effort.  The  following  para¬ 
graphs  discuss  the  prototypes's  limitations  and  suggest 
reasons  why  the  current  system  is  not  yet  useful  as  a  gcod 
production  system. 

The  calculator  is  severly  limited  in  memory  capacity. 
The  TI-59  calculator  has  only  959  program  steps  for  program 
usage.  The  overhead  in  code  generation  and  segmentation 
prompts  use  up  45%  of  these  steps.  Together  with  the  fact 
that  only  three  memory  partitions  between  program  steps  and 
storage  registers  are  available,  the  45%  becomes  a  signifi¬ 
cant  driving  figure  in  calculator  use. 

The  memory  problem  restricts  the  varieties  of  programs 
which  may  be  written  for  translation.  Programs  may  not  be 
written  which  reguire  a  main  routine  having  a  long  back  jump 
that  covers  a  vast  portion  cf  memory.  This  is  because  the 
linker  segmentation  rules  will  be  violated  underneath  the 
covered  iterative  segment.  The  segmenter  will  fail  tc 
segment.  Thus,  only  programs  which  are  sequential  in  nature 
are  suitable  for  the  system. 


Another  related  problem  is  that  the  smaller  the  memory, 
the  more  segmentation  breaks  will  occur  in  the  code.  The 
more  segmentation  breaks,  the  more  card  reads  will  be 
required  to  achieve  a  successful  program  execution.  Often, 
a  problem  will  arise  with  the  card  reader  of  the  calculator. 
Like  any  piece  of  equipment  with  a  motor  and  magnetic  tape 
head,  it  is  fairly  sensitive  and  prone  to  failure.  If  the 
card  reader  fails  just  once  in  the  execution  sequence,  then 
there  is  a  high  probability  that  the  program  will  fail  to 
terminate  successfully.  The  minimization  of  magnetic  card 
reads  is  desirable  fcr  this  reason  as  well  as  for  reduction 
of  user  thrashing. 

Another  restriction  occurs  in  the  language  subset. 
Arrays  were  not  implemented  in  the  first  prototype  design. 
This  limitation  impacts  directly  on  the  types  of  programs 
which  can  be  developed  for  and  translated  by  BAX59. 

Arrays  are  used  primarily  for  iterative  work.  Without 
arrays,  iterative  work,  while  still  possible,  is  very 
limited.  Much  computer  power  lies  in  the  ability  to  execute 

iteration  rapidly.  As  noted  in  preceedin g  paragraphs,  this 

limitation  occurs  as  a  result  of  the  small  memory  capacity 
of  the  machine.  Because  of  this,  it  is  felt  that  the  imple¬ 
mentation  of  arrays  should  occur  when  the  prototype  is 

matched  with  a  mere  capable  calculator. 

We  have  sugge^ed  major  limitations  of  the  system  as  it 
currently  stands.  For  these  reasons  it  is  felt  that  the 
system  should  be  viewed  only  as  a  first  working  prototype. 
However,  we  feel  that  this  prototype  successfully  demon¬ 
strates  the  concept  that  the  power  and  efficiency  of 
calculator  programming  can  be  greatly  extended  through 

higher  level  language  programming. 
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C.  RECOMMENDATIONS 


If  the  concept  of  BAX59  is  useful,  then  the  next  logical 
step  is  to  develop  the  second  prototype.  The  second  proto¬ 
type  should  not  be  hindered  by  the  current  TI-59's 
limitations.  Otherwise,  the  next  machine  should  be  a  mere 
practical  one,  allowing  easy  hand  held  calculator  program¬ 
ming.  Many  firms  now  market  machines  which  have  built-in 
BASIC  language  interpreters. 

1  •  Hardware  Related  Su  gqesticns 

In  order  to  avoid  the  major  restriction,  namely 
memory,  the  BAX59  system  must  target  a  larger  capacity 
calculator.  This  calculator  should  have  about  10,000 
program  steps  and  apprcximatly  400  to  500  storage  registers. 
A  memory  partitioning  capability  should  be  available  to 
maximi2e  memory  usage. 

As  a  follow  cn  to  increased  memory  capacity,  the 
next  prototype  should  have  a  hardware  device  available  which 
will  enable  the  host  computer  to  download  the  generated 
calculator  program  into  the  target  machine.  This  would 
eliminate  hand  punching  program  steps,  which  would  be  be 
prohibitive  on  a  calculator  program  of  10,000  or  more  steps. 

The  linker  algorithm  examines  the  dynamic  structure 
of  the  program  to  facilitate  segmenting  the  program.  This 
alogorithm  segments  sequential  coda  that  is  not  covered  by  a 
back  loop.  It  may  be  possible  to  use  this  algorithm  in  the 
development  of  a  single  page  swapping  mechanism/system  for  a 
small  microcomputer.  The  purposa  of  the  algorithm  in  such  a 
system  would  be  to  segment  a  program  too  large  for  the 
microcomputer,  in  such  a  manner  so  as  to  minimize  the  number 
of  single  page  swaps  with  the  system's  disk  storage  unit. 
Such  a  system  might  be  desirable  for  a  small  microcomputer 
in  which  memory  is  a  problem. 
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2.  Array  I mplem entati o n 

A  very  useful  extension  cf  the  language  subset  would 
te  the  inclusion  of  arrays.  Coupled  with  memory  expansion, 
the  capability  to  process  arrays  would  make  it  possible  to 
do  mere  iterative  programming. 

A  simple  but  costly  implementation  of  single  dimen¬ 
sional  arrays  is,  perhaps,  the  most  feasible  approach.  For 
each  array  declared,  three  registers  will  be  required  to 
store  indexing  and  access  information.  Call  the  WEASIC 
record  fields  which  will  stcre  the  assigned  register  numbers 
EASE,  HOLD,  and  CALL.  BASE  stores  the  number  of  the  array 
base  register  (array  index  0).  During  assignment  statement 
translation,  HOLD  stores  the  index  for  an  array  identifier 
cn  the  left  hand  side  of  the  assignment  statement  equal 
sign.  CALL  stores  the  index  of  any  array  identifier 
currently  being  evaluated  in  simple  expression.  Of  course, 
registers  will  be  necessary  for  storage  of  the  array  itself. 
The  simplest  technique  is  to  require  that  all  array  index 
ranges  start  at  zero.  Additionally,  there  will  be  no  run¬ 
time  checking  cf  range  limits.  With  the  foregoing 
restricticns,  estimated  TI-59  program  step  requirements  for 
translaticn  of  even  simple  assignments  involving  single 
dimensional  arrays  are  very  high.  Evaluation  of  one  array 
reference  such  as  "  A  (X)  "  translates  to  13  program  steps. 
The  assignment  statement  "A(X)=A(Y)"  translates  to  26  steps. 
A  more  complex  reference  such  as  "A(A(X))H  requires  about  24 
steps.  Together  with  the  number  of  registers  needed  to 
store  values  and  access  data,  usage  cf  calculator  memory  may 
rapidly  approach  capacity  levels  with  array  manipulation. 

Particular  array  values  are  accessed  with  the  IND 
(indirect)  instruction.  Cur  basic  strategy  is  tc  add  the 
evaluated  array  subscript  to  the  register  number  in  EASE, 
and  stcre  it  in  HOLD  (for  left  side  of  assignment 
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sta tener.t s)  or  CALL  (for  all  others)  .  When  a  value  is  to  be 
assigned  to  an  array  element  on  the  left  of  an  assignment 
statement,  then  the  right  side  is  evaluated  and  "STO  IHD" 


HOLD  stores  the  value  at  the  correct  location. 


it  is 


only  necessary  to  evaluate  an  array  item  within  an  expres¬ 
sion,  then  " RCL  IND"  CALL  recalls  the  value  of  the 
appropriate  item.  Mere  efficient  translation  schemes  might 
be  possible;  however,  our  technique  has  been  tested  on  the 
TI-59  calculator,  and  works  well. 

The  most  difficult  aspect  of  implementation  is  the 
the  task  of  Installing  the  translation  scheme  and  a  parsing 
scheme.  Fortunately,  the  BASIC  language  requires  explicit 
array  declarations  using  the  DIM  statement.  Procedure  PDIH 
must  be  written  to  parse  these  declarations,  create  symbol 
table  entries,  and  make  register  assignments.  The  SLCTECD 
record  would  need  an  additional  variant  tag  type  for  array 
types,  call  it  ARRID.  A  slot  with  this  tag  would  carry 
fields  EASE,  HOLD,  and  CALL  in  its  variant  part.  Finally, 
we  would  have  to  adjust  the  simple  expression  parsing  and 
code  generating  procedures  PEXPR  and  PPHIMARY  so  that  they 
could  recognize  array  references  and  act  accordingly.  Of 
course,  there  are  other  source  code  adjustments  that  would 
be  necessary  to  fine  tune  the  system.  However,  •'•his  discus¬ 
sion  has  suggested  cur  outline  of  raaj^r  steps  involved  in 
array  implementation. 


APPENDIX  A 

W  B  A  SI  C  SOBSET  BECOGNIZED  BY  BAX59 


Command  Reserved  Words: 


DATA 

EN  DIF 

GOT  C 

NEXT 

REM 

DEF 

ENDLOOP 

IF 

PAUSE 

RESTORE 

ELSE 

FNEND 

INPUT 

PRINT 

RETURN 

ELSEIE 

FOR 

LET 

QUIT 

STOP 

END 

GOSUB 

LOOP 

READ 

UNTIL 

WHILE 


OETICN  (special — does  not  follow  WSASIC  syntax) 


Supplemental  Reserved  Words : 


NCT 

<> 

<  + 

( 

STEP 

<  = 

> 

) 

THEN 

>  = 

=  * 

9 

TC 

** 

!  / 

• 

S  (s 

;pecia 

1 — recognized  by 

scanner 

(s 

;pecia 

I — recognized  by 

scanner 

Unimplemented 

Resar 

ved  Words: 

CHAIN  LINPCT 

CLOSE  LOCK 

DIM  MAT 

ENDGUESS  ON 

GUESS  OPEN 

OPTION  (special — syntax 


RANDOMIZE 

REMOVE 

RENAME 

RESUME 

SCRATCH 

of  W  BA  SIC 


not 


SLEEP 

SORT 

TAGSORT 

UNLOCK 

USE 

implemented) 


AND  OR 

*  $ 


I 
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Description  cf  Command  Reserved  Words : 

DATA:  Create  an  internal  data  list  (see  READ,  RESTORE) 
DATA  Cinteg  er  |  r  eal>  (,  Cinteger  |  real>) 

DEF:  Define  a  single  or  multi-line  function  (see  FN END)  . 

sinaje  dine:  DEF  <fn  name>  [  (<Darameter-list>)  ]  =  <ex 
muiti-line  :  DEF  <fn~name>  r  (<t>arameter-list>)  j 

...body  of  definition 
FN  END 

ELSE:  Indicate  instructions  to  execute  if  no  IF/SLSEIF 

conditions  were  satisfied  (see  IF,  ELSEIF,  ENDIF)  . 

ELSE 

ELSEIF:  Cause  execution  of  a  number  of  statements  dependi 
on  the  given  condition  (see  IF,  ELSE,  ENDIF)  . 

ELSEIF  <boolean -expr> 

END:  Hark  the  end-of -source  in  the  program  (last  line)  . 
END 

ENDIF:  Indicate  the  end  of  an  IF-SLSEIF-SLSE  structure 
(see  IF,  ELSEIF,  ELSE). 

ENDIF 

ENDLCCP :  Mark  the  end  of  a  loop  (see  UNTIL,  WHILE,  LOOP). 
ENDLCCF 

FNEND :  Mark  the  end  cf  a  function  definition  (see  DEF). 

FN  END 

FOR:  Mark  the  start  cf  a  loop  (see  NEXT). 

FOR  <for-var>  =  <exor>  TO  <exor>  [STEP  <expr>] 
...statements  to'execute  in  loop 
NEXT  <fcr- var> 

GOSUE:  Transfer  contrcl  to  the  line  specified,  until  a 
RETURN  is  reached  (see  RETURN)  . 

GCSUE  <line#>  (Note:  GO  SU3  is  not  reccgniz 

GOTO:  Transfer  control  to  the  line  specified  (see  ON). 

GOIC  <line#>  (Note:  GO  TO  is  not  recogniz 


IF: 


(1)  Cause  transfer  of  control  *.o  either  of  two 
statements  or  QUIT  a  loop  lepending  on  a  condition. 

IF  <  boolean  -expr>  THEN  <line#>|QUlT  [ELSE  <line#>  I  QUIT  ] 
NOTE:  This  is  an  exception  to  WEASIC  which 

allows  any  single  statement  after  THEN 
and/or  ELSE. 

(2)  Cause  execution  of  either  of  a  group  of 
statements  depending  on  a  condition 
(see  ELSE,  ELSEIF,  ENDIF). 

IF  < toclean -exDr> 

...statements  to  execute  if  expression  TRUE 
[ELSEIF  <bcoleat-expr> 

...statements  to  execute  if  2nd  expression  TRUE] 
[ELSE 

...statements  to  execute  if  none  are  TRUE] 

ENDIF 


INPUT :  Transmit  data  from  the  terminal  to  a  number  of 

variables  (see  PRINT).  No  variables  stops  execution. 

INPUT  [<expr>  {,  <expr>}] 


LET:  Assign  the  value  of  an  expression  to  a  variable. 
[LET]  <var>  =  <expr> 


LOOP:  Mark  the  beginning  of  a  loop 
(see  WHILE,  END  LOOP,  UNTIL). 

LOOP 

. . .  statements  to  execute  m  loop 
ENDLCOE 


NEXT:  Mark  the  end  of  a  FOR  loop  (see  FOR)  . 

FOR  <f or- v a r>  =  ... 

...statements  to  execute  rn  loop 
NEXT  <for- var> 


PAUSE:  Suspend  execution  of  the  program. 
PAUSE 


PRINT:  Transfer  a  series  of  values  to  printer  or  disclav. 

If  r.c  expression  is  found,  a  line  space  will  result, 
(see  OPTION) 

PRINT  [<expr>  (,  <expr>)  ] 


QUIT:  Leave  the  current  block  (WHILE,  UNTIL,  LOOP). 
QUIT 


READ:  Transfer  data  from  the  list  of  items  specified  in  DATA 
statements  (see  DATA,  RESTORE)  . 

READ  <7ariable>  {,  <variable>) 
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REM  : 


Indicate  that 
character  (!) 


the  line  is  a  comment.  The  exclamation 
may  also  be  used  to  indicate  a  comment. 


REM  [ <ccmment>  ] 


SESTCRE:  Cause  the  next  READ  statement  to  get  dat 
starting  at  the  first  item  in  the  DATA  1 
(see  READ,  DATA)  . 


values 


RESTORE 


RETURN:  Transfer  ccntrcl  to  the  statement  following  the  last 
GCSUB  executed  (see  GOSUB). 

RETURN 

STOP:  Terminate  program  execution. 

STOP 

UNTIL:  Marie  the  end  of  a  loop  to  be  executed  until  the  given 
condition  is  true  (see  WHILE,  LOOP,  ENDLOCP) . 


LCCF 

...statements  to  execute  in  loop 
UNTIL  <tool  ean- expr  > 


WHILE: 


Mark  the  beginning  of  a  loop  to  be  executed  until  the 
given  condition  is  no  longer  true 
(see  LOOP,  ENELOOP,  UNTIL). 


WHILE  <tool  ean-exor > 

...statements  to  execute  in  Iood 
ENDLCCE 


OPTION:  Set/reset  boolean  toggles  within  BAX59  to  control 
generation  of  output  files. 

CAUTION:  This  is  not  the  WBASIC  OPTION! 

This  OPTION  should  be  used  only  after 
a  correct  WEASIC  program  has  been 
constructed  and  is  ready  for  translation. 


OPTION  <opt-parm>  {<cpt-parra>} 

where  <cpt-parm>  (option  parameter)  is 
an  inteaer  range  -8.. +8; 
sign  indicates  the  direction  of  toggle: 
positive  =  true/on,  negative  =  false/cff; 
sign  is  assumed  positive  if  omitted. 


0 

1 

2 

3 

u 

5 

6 

7 

8 


Default 

generate  linker  interface  fils . false 

generate  cede  for  PC-100  printer . true 

optimize  cut  unnecessary  parentheses . true 

optimize  cut  unnecessary  NOP's . true 

translated  TI-59  code  to  list  file . true 

contents  cf  symbol  table  to  list  file . false 

contents  cf  code  structure  to  list  file.. .false 

each  lexical  token  to  terminal . false 

each  lexical  token  to  list  file . false 
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WHILE,  UNTIL) 


Description  of  S  uppl  emental  Re sjr ve d  Words : 

NOT:  Negate  a  boolean  expression  (see  IF, 

NOT  <bcclea n-expr> 

STEP:  Designate  the  increment  (decrement)  value  cf  a  FOR 

variable  (see  FOR).  (default  =  +1) 

FOR  <fcr-var>  =  <expr>  TO  <expr>  STEP  <expr> 

THEN:  Mark  the  beginning  of  the  true  branch  of  a  line- 

criented  IF  statement  (see  IF)  . 

IF  <toolear.-expr>  THEN  <line#>|QUIT  [ELSE  <line  #>  I  QUIT  ] 

TO:  Mark  the  expression  which  represents  the  limitinc 

value  of  a  ror-variable  (see  FOR) 

FOR  <fcr-var>  =  <expr>  TO  <expr>  [STEP  <expr>] 


Symbols  and  Operators: 


<>  net  equal 

<=  less  than  cr  equal 

>-  greater  than  or  equal 

**  raise  to  the  power 

<  less  than 

>  areater  than 

=  equal 

!  end  of  line  emt 


♦  addition 
subtraction 

*  multiplication 
/  division 

(  open  expression 
)  close  expression 
,  list  item  separator 
.  decimal  point 


Special  Characters: 

(not  reserved  wcrds--re cognized  directly  within 
the  scanner  without  reference  to  the  Rw  table) 


&  Sianifiss  that  the  current  line  is  continued  on  the 
next  line  cr  is  a  continuation  of  the  last  line. 

C0120  FEM  This  comment  is  to  long  for  one  line,  so  it  S 
CQ130  &  must  be  continued  on  the  next  line. 


Underscore;  used  within  variable  identifier  names  to 
assist  in  readability;  also  used  to  desianate  a  user 
defined  function  identifier. 

LET  FINAL  SUM  VALUE  =  FIRST  VALUE  +  SECOND  VALUE 
CEF  FN  FACTORIAL... 


Euilt-in  Functions: 


AES 

AIN 

CSC 

I? 

PI 

SIN 

ACCS 

COS 

EXP 

LOG 

RMD 

SQR 

ASIN 

COT 

FP 

LOGIO 

SEC 

TAN 

ASS:  Returns  the  absolute  value  (magnitude)  cf  parameter 

AES  (x) 

ACCS:  Returns  the  arccosine  (in  radians)  cf  parameter 

ACCS  (x) 

ASIN:  Returns  the  arcsine  (in  radians)  of  parameter 

ASIN  (X) 

ATM:  Returns  the  arctanaent  (in  radians)  of  parameter 

ATN(x) 

COT:  Returns  the  cotangent  of  parameter  angle  in  radians 

CCT(x) 

CSC:  Returns  the  cosecant  of  parameter  anale  in  radians 

CSC  ( x) 

EXP:  Returns  the  value  of  a  raised  to  the  power  x 

EXE  (x) 

FP:  Returns  the  fractional  part  and  sian  of  parameter 

FE  (x) 

IP:  Returns  the  integer  part  and  sign  or  real  parameter 

IE  (X) 

LOG:  Returns  the  natural  logarithm  (base  e)  of  parameter 

I.CG  (x) 

LOGIO:  Returns  the  logarithm  (base  10)  of  parameter 
LCG10(X) 

FI:  Returns  the  value  of  the  constant  oi 

=  3.  141593  WBASIC  ==>  pi  =  3.  14159  265359  TI-59) 

HMD :  Returns  a  ose rdo-ran dcm  number  in  the  range  (0,1) 

RNE(X) 

SEC:  Returns  the  secant  of  parameter  angle  in  radians 

SEC  (x) 

SIM :  Returns  the  sir.e  of  parameter  angle  in  radians 

SIN  (x) 

SQR:  Returns  the  square  root  of  parameter 

SCS(x) 

TAN:  Returns  the  tangent  of  parameter  angle  in  radians 

TAN  (X) 
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APPENDIX  Q 

CONDENSED  BAX59  USEB'S  GOIDE 


This  guide  is  intended  to  be  a  useful  compendium  of 
important  points  the  user  should  consider  when  preparing, 
cross-compiling,  and  linking  a  WBASIC  source  program  with 
the  S AX 5 9  system.  Included  are  suggested  programming  tech¬ 
niques  which  will  optimize  and  improve  result in a  TI-59  code. 
Some  of  the  information  contained  in  the  design  document  is 
repeated  here  for  the  sake  of  consistency.  There  are  a  few 
previously  unmentioned  items,  many  of  which  are  essential  to 
successful  use  of  the  system. 

1.  whether  you  are  translating  a  prewritten  WBASIC  program 
or  one  which  you  are  writing  yourself,  review  it  for 
constructs  and  functions  which  are  not  implemented  in 
EAX5S.  Use  Appendix  A  as  a  quick  reference  for  this 
purpose.  Finding  and  eliminating  unimplemented  func¬ 
tions  is  mere  important  than  constructs.  BAX59  will 
detect  and  report  construct  subset  errors,  however, 
uni aplemented  functions  are  assumed  to  be  variable 
identifiers  and  will  be  entered  in  the  symbol  table  as 
such.  An  error  may  or  may  net  be  reported  as  a  result 
cf  faulty  syntax;  this  depends  upon  the  context  of  the 
unimplemented  function. 

2.  Every  line  cf  the  source  program  must  have  a  line 
number,  including  blank  lines.  Every  line  number  must 
be  in  chronological  order  between  00000  and  99999 
exclusive . 

3.  The  end  of  the  source  file  does  not  require  the  END 
statement;  however,  whenever  an  END  statement  is 
encountered,  the  end  of  the  source  program  is  assumed 
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The  2ND 


stat  emen 


wi  il 


ana  translation  halts, 
generate  a  TI-59  program  stop.  If  you  desire  that  a 
TI-59  program  halt  gracefully,  you  must  use  the  STOP 
statement (s)  in  the  W3ASIC  source  code. 

There  is  no  overhead  involved  in  using  blank  lines  or 
comments.  Although  a  NOP  is  generated  for  each,  it  is 
subsequently  optimized  out  during  resolution.  This 
also  allows  unccndit ional  jumps  to  such  constructs 
without  cause  for  concern.  However,  such  practice  is 
not  recommended  and  will  hamper  debugging. 

You  are  strongly  urged  to  practice  structured  program¬ 
ming.  While  an  unstructured  program  will  be 

translated,  its  physical  correspondence  to  the  original 
WBASIC  source  code  is  likely  to  be  lass  recognizable. 
Also,  such  a  translation  will  very  probably  confuse  the 
linker.  Ensure  that  your  subroutines  have  only  one 
entry  point  and  one  8 ETU3N,  otherwise  you  will  defi¬ 
nitely  confuse  the  linker!  In  order  to  improve  the 
physical  correspondence  between  source  and  translation, 
you  are.  encouraged  to  use  blank  lines  and  comments. 
This  will  usually  assist  in  debugging,  if  required. 

The  structured  order  of  WBASIC  program  parts  should  be 
as  fellows: 

A.  OPTION  statement  (for  3AX59  only) 

B.  DATA/READ  statements 

C.  Main  Body  (including  a  at  least  one  STOP) 

D.  Function  DEF's  and  Subroutines 
2.  END  statement 

Note:  The  linker  expects  to  find  the  label  repre¬ 

senting  the  main  body  (L3L  A)  as  the  first  two  TI-59 
ksycodes. 

Tnere  is  only  one  type  of  numeric  data:  real. 

Integers  and  reals  are  both  considered  reals  in  the 
TI-59  run-time  environment.  Numeric  entries  without 


exponent  will  always  be  truncated  to  ten  significant 
digits.  If  the  entry  contains  an  exponent  or  if  the 
entry  must  he  converted  to  exponent  notation  in  crier 
to  maintain  equivalence,  then  only  eight  significant 
digits  will  be  saved  {plus  two  in  the  exponent).  These 
rules  can  have  a  profound  effect  upon  precision  errors 
in  numerical  computations. 

8.  Avoid  proliferation  of  variable  names.  Variable  names 
use  registers,  your  most  precious  resource!  Whenever 
possible  reuse  variable  names  to  prevent  new  register 
assignments. 

9.  Do  net  forget  to  reserve  registers  for  your  own 
requirements.  The  "long"  function  facility  always 
requires  one  in  the  range  10-99.  The  linker  always 
requires  two  in  the  range  00-09.  An  additional  twe  per 
segment  in  the  range  10-99  will  be  taken  dynamically 
by  the  linker  after  the  cross-compiler  has  made  all  its 
assignments.  The  interface  information  is  passed 
through  the  SCEATCH  file.  Never  reserve  the  last 
available  register,  otherwise  a  memory  overflow  will 
never  be  reported  in  a  warning  message. 

10.  Optimize  expressions  using  the  standard  rules  cf  oper¬ 
ator  precedence.  Failure  to  do  so  may  result  in 

unnecessary  generation  of  parentheses. 

11.  Avoid  use  of  the  STEP  option  in  FOE  loops.  Pely  on  the 
default  increment  (  +  1)  whenever  possible. 

12.  If  a  user-defined  function  is  to  be  applied  for  its 
side  effects  only,  then  use  one  variable  name  tc  invoke 
all  such  function  calls.  For  example: 

00120  INVOKE  =  FN_  ALPHA 

00130  INVOKE  =  FN_BETA  (X,  Y) 

00140  INVOKE  =  FN_GAMMA 

13.  Although  contrary  to  principles  of  good  structured 

programming,  do  not  pass  any  parameters  unless 
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absolutely  necessary.  Parameter  passing  use?  a  great 
deal  cf  program  steps.  Furthermore,  since  actual 
parameters  may  be  simple  expressions,  nesting  of  paren¬ 
theses  can  become  arbitrarily  deep  very  quickly  in  a 
function  call.  The  TI-59  places  a  limit  of  nine  on  the 
depth  cf  parentheses  nests. 

14.  Remember  that  the  TI-59  allows  subroutine  (SBR)  nesting 
to  a  maximum  of  six  levels.  This  restricts  the  depth 
of  recursion.  However,  if  the  recursive  call  always 
returns  to  the  same  address.  The  recursion  will  prob¬ 
ably  work.  This  is  because  the  subroutine  return  stack 
will  always  maintain  the  correct  return  address,  even 
if  it  overflows. 

15.  EAX59  distinguishes  between  upper  and  lower  case  char¬ 
acters  in  variable  identifiers.  Exceptions  are  the  "E" 
in  an  exponent,  the  "FN_"  preface  of  a  function,  and 
reserved  words.  Built-in  functions  must  be  written  as 
they  appear  in  the  BIFNQF  or  BIFMLF  files  (currently, 
all  upper  case)  . 

16.  W3ASIC  trignometric  functions  compute  in  radians.  By 

default,  TI-59  trignometric  functions  compute  in 
degrees.  If  trignometric  functions  are  translated, 

then  prior  to  execution  the  TI-59  must  be  reset  to  the 
radian  mode  by  entering  "2ND  BAD." 

17.  If  you  plan  to  modify  TI-59  code  that  has  been  gener¬ 
ated  by  3AX59 ,  remember  that  only  subroutines  have 
relative  addresses.  All  other  addresses  are  absolute 
justified.  Cede  insertions  or  deletions  do  not 
rejustify  absolute  addresses!  Unless  you  are  familiar 
enough  with  the  calculator  to  know  what  you  are  doing, 
you  will  create  more  problems  than  you  fix. 

18.  The  special  construct,  PAUSE,  is  provided  for 

assistance  in  debugging.  This  is  somewhat  like  a 

message  to  the  compiler.  It  translates  to  the  TI-59 
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keyccdes  82  and  31,  which  are  a  void  key  and  the  "LT!" 
key.  Thess  keycodes  cannot  be  entered  directly  into 
the  calculator.  Instead,  enter  "S TO  31"  followed  by 
the  editing  sequence  "BST  BST  NOP  SST."  The  original 
"STC  31"  will  have  been  changed  to  "NOP  31."  When 
encountered  during  run-time,  these  keys  will  interrupt 
execution  and  cause  the  calculator  tc  enter  its  learn 
Mode.  Other  than  stopping  execution,  no  other  harmful 
effects  result.  To  resume  processing,  simply  hit  "LRN" 
tc  show  the  contents  of  the  current  display  register, 
and  "B/S"  to  continue  execution.  This  facility 
provides  a  convenient  method  of  process  suspension 
which  corresponds  physically  and  logically  to  the 
WEASIC  source  cede. 

The  BAX59  OPTION  statement  may  provide  other  useful 
facilities  for  debugging.  However,  most  of  these  were 
designed  for  debugging  during  installation  of 
enhancements  tc  the  BAX59  Cross-Compiler  Beware  of 
OPTION  parameters  6,  7,  and  8.  These  tend  to  produce  a 
great  deal  cf  cutput! 

The  EAX59  system  will  not  execute  properly  unless  all 
associated  data  files  are  available  tc  the  host 
operating  system  on  which  BAX 5 9  will  run.  You  may 
modify  the  information  contained  in  them,  however,  you 
should  not  change  the  formats.  (These  files  are 
Appendices  D,  E,  F,  G,  H,  and  J.) 

Co  not  design  excessively  long  iterative  loops  or  back 
jumps",  the  linker  cannot  handle  them.  If  iteration  is 
required,  design  loops  which  translate  to  back  jumps 
that  are  well  within  the  TI-59  memory  constaints. 

The  key  to  successful  use  of  the  linker  is  to  break 
very  large  programs  into  smaller  parts  which  can  be 
processed  sequentially  without  much  reoetition. 
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APPENDIX  C 

CROSS-COMP ILEB  SOURCE  CODE 


t* c*  ***************  *********  ******************************** 


(*  * 

(*  BAX59  CROSS-COMPILER  * 

f*  * 

(*  IMPLEMENTS  A  RECURSIVE  DESCENT  PARSER  AND  GENERATES  * 
(*  A  LINKED  RECORD  DATA  STRUCTURE  OF  TI-59  CODE  * 

(*  TRANSLATED  FROM  WEASIC  LANGUAGE  SOURCE  CODE.  * 

(*  THE  DATA  STRUCTURE  IS  USED  TO  RESOLVE  RELATIVE  TI-59  * 

(*  ADDRESSES.  A  LISTING  OF  THE  ORIGINAL  WBASIC  PROGRAM  * 

(*  INCLUDING  DETECTED  ERRORS  IS  GENERATED  DURING  * 

(*  TRANSLATION.  VARIOUS  FORMS  OF  OUTPUT  BESIDES  THE  * 

i*  LISTING  FILE  CAN  EE  TOGGLED  CN/OFF  FROM  WITHIN  THE  * 

*  INPUT  FILE  USING  THE  "OPTION'1  STATEMENT.  THIS  VERSION  * 
*  OF  THE  PROGRAM  IS  DESIGNED  TO  SUPPLEMENT  A  WATERLOO  * 
*  BASIC  (WEASIC)  LANGUAGE  INTERPRETER  CR  COMPILER.  AS  * 
*  SUCH,  IT  DOES  NOT  DETECT  ALL  WBASIC  SYNTAX  OR  SEMANTIC  * 
*  ERRORS.  WBASIC  PROGRAMS  SHOULD  BE  SUCCESSFULLY  RUN  * 
*  IN  THE  WEASIC  SYSTEM  ENVIRONMENT  PRIOR  TO  TRANSLATION  * 
*  WITH  THIS  CROSS-COMPILER.  THE  BA X 59  SYSTEM  INCLUDES  * 
(*  AN  INDEPENDENT  LINKER  (TSDRIVER)  WHICH  WILL  PROPERLY  * 
(*  SEGMENT  AND  ISSUE  INSTRUCTIONS  FOR  MANUALLY  LINKING  * 
<*  AND  EXECUTING  A  TI-59  PROGRAM  GENERATED  BY  THE  CROSS-  * 

(*  COMPILER  EUT  WHICH  IS  TOC  LARGE  FOR  THE  CALCULATOR  * 

<*  MEMORY  CAPACITY.  * 

(*  * 


j**********  **********************************************  ** 

PROGRAM  EAX59  (INPUT,  OUTPUT,  BASICF,  MSGF , 

RWTELF,  LA3ELF,  CTEXTF,  BIFNQF,  BIFNLF , 
OUTFILE,  LISTF,  NAM3F,  RSADF,  SCRATCH) 


/**********  ****************  ******************  ************** 
/*  * 

(*  SYSTEM  PARAMETERS  * 

(*  * 

I***  **********  *  ***  ******  ***  ******************  ****  *****  ***  ** 


!* - * 

*  * 

*  CONST  DECLARATIONS  (MAIN)  * 

*  * 

(* - - - - - * 


CONST  RWCHABCT  =  270 

RWWCRDCT  =  72 

RWLENGCT  =  9 

MAXTOKLEN  =  20 

MAXLINLEN  =  66 

MAXEASLIN  =  99999 

HASHBASE  =  99 

STARTREG  =  00 

REGEASE  =  90 

LBLEASE  =  72 

F NOLEN  =  4 

FNILEN  =  15 

FNLREG  -  =  10 

FN  ST  ACKL I M  =  6 

TEXTLEN  =  20 


*  TOTAL  #  OF  CHARS  IN  RW  ARRAY  * 

*  TOTAL  *  OF  WORDS  IN  RW  ARRAY  * 

*  #  OF  CHARS  IN  LONGEST  RW  * 

*  MAX  ACCUM  LENGTH  =>  MAX  TOKEN  * 

*  MAX  LENGTH  OF  BASIC  TEXT  LINE  * 

*  MAX  BASIC  PROGRAM  LINE  NUMEER  * 

*  INDEX  OF  LAST  BUCKET  (0-99)  * 

*  1ST  REGISTER  (LOWEST  NUMEER)  * 

*  MAX  4  AVAILABLE  REGISTERS  * 

*  MAX  *  OF  AVAILABLE  LABELS  * 

*  MAX  *  STEPS  IN  QUICK  FUNCTION  * 

*  MAX  #  STEPS  IN  LONG  FUNCTION  * 

*  REG  USED  FOR  PARM  OF  LONG  FNS  * 

*  MAX  SBR/FN  NESTING  LEVEL  * 

*  MAX  #  CHARS  IN  A  CODE  TEXT  LN  * 
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w  *  *  *  *  *  * 


(**Jt c********  *********************************  #*************) 

GLOBAL  DECLARATIONS 


TI-59  KEY  CODES: 


OTHER  SYMBOLS: 


K  ZERO 

= 

0 

K  EE 

s 

52 

K“1 

= 

1 

K"0? AREN 

3 

53 

K~2 

= 

2 

K"CP  AREN 

s 

54 

K“3 

= 

3 

K"DI VOP 

3 

55 

K“4 

= 

4 

K“ENG 

3 

57 

K~5 

S 

c 

K“FIX 

3 

53 

K”6 

3 

6 

X“INT 

3 

59 

K“7 

3 

7 

K“DEG 

s 

60 

K“8 

s 

8 

K“GT  0 

s 

61 

K”S 

= 

9 

K"PG  MIND 

s 

6  2 

K~  EPR 

3 

1  0 

K~ EX  CIN  D 

s 

63 

K~A 

3 

1  1 

K“?R  DIND 

s 

6  4 

K~E 

s 

12 

K“MU  LTOP 

3 

o  5 

K"C 

s 

1  3 

K“P A  USE 

3 

56 

K“D 

s 

1  4 

K“IFXEQT 

3 

67 

K~E 

= 

15 

K“NO  P 

3 

58 

K”APR 

s 

16 

K“OP 

= 

69 

K“ EPR 

= 

17 

K"RAD 

3 

70 

K~CER 

= 

18 

K“SBR 

3 

71 

K~DFR 

= 

19 

K~ST  CIN D 

3 

72 

K“2CLS 

= 

20 

K~R  C  LIN  D 

3 

73 

K“INV 

3 

22 

K^SU  MIND 

3 

74 

K“LNX 

s 

23 

K“SUBOp 

3 

75 

K“CE 

= 

24 

K“LBL 

3 

76 

K“CLR 

s 

25 

K“IF  XGET 

3 

77 

K~2INV 

3 

27 

K“*SIGHA 

3 

78 

K— ICG 

= 

28 

K~XSAR 

3 

79 

K~CP 

s 

29 

K~GRAD 

3 

30 

K— T  AN 

3 

30 

K”RST 

3 

81 

K~  X  T 

= 

32 

K'GTOIND 

3 

83 

K”XSCR 

3 

33 

K~OP IN  D 

3 

94 

K” SRTX 

= 

34 

K" AD DOP 

3 

35 

K~  X I N  V 

3 

35 

K"ST  FLG 

3 

36 

K”FGM 

3 

36 

K”IF  FLG 

3 

87 

K~E  R 

s 

37 

K”DM  S 

3 

98 

K"SlN 

3 

38 

K"?I 

3 

39 

K~ CCS 

= 

39 

K”LIST 

3 

90 

K”IND 

3 

40 

K"RS 

3 

91 

K~STG 

3 

42 

K~IN VSBR 

3 

92 

K”RCL 

3 

4  3 

K'DECFT 

3 

93 

k~sum 

= 

44 

K“NEG 

3 

94 

K”PCWR 

3 

45 

K”EQ  UALS 

3 

35 

K~  CMS 

3 

47 

K“NRITE 

3 

96 

K~E  XC 

3 

48 

K"DS  Z 

3 

97 

K”FED 

3 

49 

K“AD  V 

3 

98 

K”AESX 

s 

50 

K“PRT 

3 

99 

BLANK 

END LIN 

ENDFIL 

PERIOD 

COMMA 

USCORE 

EXCLAM 

QUOTE 


i 

5)' 

f* 

i 

• 

f 

% 

T  t 

; .  i 


*  *  *  »  ■*  a 


*  *  * 


TC  KEN  KUMEERS 

USEE  MOST  OFTEN  OUTSIDE 

OF 

MAIN 

DRIVER. 

EREORTOK 

0 

IDENTOK 

_ 

RWWORDCT 

♦  1; 

CMTCKEXC 

1 

NUMBERTOK 

= 

RWWORDCT 

*  2; 

EQUALTOK 

= 

2 

ENDLINTOK 

= 

RWWORDCT 

♦  3; 

FIUSTCK 

rr 

3 

ENDFILTOK 

= 

RWWORDCT 

♦  4; 

MIKUSTOK 

s 

4 

HULTCK 

s 

5 

DIVICK 

— 

6 

TOTOK 

2 

20 

OP  AEENTOK 

s 

7 

OETOK 

ss 

21 

CP AEENTOK 

= 

8 

CMTOKREM 

s 

24 

GTTCK 

= 

9 

NOTTOK 

s 

28 

LUCK 

= 

1  0 

ANDTOK 

= 

30 

COKMATOK 

1  1 

THENTOK 

— 

33 

EXPTOK 

s 

15 

ELSETOK 

25 

34 

NOIEQTOK 

= 

16 

QUITTOK 

s 

38 

GTECTCK 

= 

17 

STEPTOK 

ss 

42 

LIEQTCK 

ST 

1  8 

ENDLOOPTOK 

s 

67 
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■-*) 

* 

*  j 

* 


TYPE  DECLARATIONS  (MAIN) 


TYPE 


BAS1INRNG 

= 

0.  .  MAX  BAS  LIN  ; 

(* 

TCKENRNG 

S 

0. . RWWORD  CT  ♦  4 

9 

HASHRNG 

= 

0.  .  HASH3A  SE; 

ACCFNG 

s 

0 . . HAXTOK  LEN  ; 

LELRNG 

s 

0.  .1BLBAS  E  +  1 ; 

REGRNG 

= 

0  .  .  S9 ; 

KEY  RNG 

s 

0. .99: 
-2..9§ 

CTEXTRNG 

9 

LNSTRING 

- 

PACKED 

ARRAY  (. 

0.  . MAXLINLEN  + 

TKSTRING 

s 

PACKED 

ARRAY  (. 

1.  .  MAXTOKLEN.) 

LEVEL  1 

S 

ARRAY 

(.  1  .  .  RWCHARCT 

+  1.)  OF 

LEV  EL2 

= 

ARRAY 

(.  1  .  .  RWWORDCT 

+  1.  OF 

LEVEL  3 

s 

ARRAY 

.  1  . . RWLENGCT 

+  1  .  )  OF 

LBLSTACK 

s 

ARRAY 

(.LBLRNG. 

)  OF 

INTEGER ; 

SUBRANGES  *) 


h] 


CF  CHAR: 
CHAR: 


CHAR: 

INTEGER; 

INTEGER; 


(* - - - * 

i*  DATA  STRUCTURE  USEE  FOR  WBASIC  RE  AD/ DATA  STATEMENTS;  *) 

r*  ONE  DATA  ENTRY  CONSISTS  OF  AN  OPTIONAL  SIGN  (DEFAULT  *> 
(*  IS  POSITIVE)  AND  AN  INTEGER  OR  REAL  NUMBER.  *’■ 

_  ___  _  _____  - — 


DATAITEM  »  RECCED 

NUMB  :  TKSTRING; 

SIGN  :  CHAR 

END:  (*  DATAITEM  *) 

DATASTORE  =  ARRAY  (.  1  .  .  REGBASE  . )  OF  DATAITEM; 


I* - - - * 

*  DATA  STRUCTURE  WHICH  HOLDS  THE  TEXT  TRANSLATION  OF  * 
*  ALL  TI-59  KEY  CODES  READ  FROM  THE  CTEXTF  FILE;  * 
*  UNIT  FIELD  INDICATES  INSTRUCTION  TYPE:  * 
*  0  *  SINGLE  STEP  INS  TF  (INDEPENDENT)  * 
*  1  =  2-STEP  INSTR  (FOLLOWED  BY  REG  NUMBER)  * 
*  2  =  3-STEP  INSTR  (FOLLOWED  BY  ABSOLUTE  ADDR)  * 
*  3  =  4-STEP  INSTR  (FOLLOWED  BY  REG  OR  FLAG  NUMBER  * 
(*  AND  AN  ABSOLUTE  ADDR)  * 
(* - * 


COEETEXT  =  RECORD 

UNIT  :  0..3; 

CCEECHAR  :  PACKED  ARRAY 

(.  1.  .  TEXTLEN.)  OF  CHAR 
END;  (*  CODETEXT  *) 

CTEXTSTORE  =  ARRAY  (.  CTEXTRNG . )  OF  CODETEXT; 
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(*  CODERCD  IS  A  SINGLE  NODE  IN  THE  TI-59  CODE  DATA 
(*  STRUCTURE;  LINERCD  IS  A  SINGLE  NODE  IN  THE  CHAIN  0? 

(*  WEASIC  LINE  NUMBERS  TO  WHICH  THE  TI-59  CODE  STRUCTURE 
<*  IS  ATTACHED;  THIS  FART  OF  THE  CODE  DATA  STRUCTURE  IS 
(*  USED  IC  LOCATE  PORTIONS  CF  TI-59  CODE  WHICH  DIRECTLY 
<*  CORRESPOND  TO  WBASIC  LINE  NUMBERS. 


COCEFTR 

CCEERCD 


LINEPTR 

LINERCD 


ECODERCD; 
EECORE 
AD CR  : 
KEY  : 
JMEP  : 
SEQP  : 
BAKE  : 
END; 

2LINSBCD  ; 
RECORD 
LINO  : 
LPTR  ; 
CPTP  ; 
END; 


INTEGER; 
INTEGER; 
CO  DEPTH ; 
CO  DEPTH  ; 
CO  DEPTH 


BASLINRNG; 

LINEPTR; 

CO  DEPTH 


(*  CODERCD 


LINERCD 


SLCTRCDS  ARE  SYMBOL  TABL 
HASH:  HASH  IS  THE  SYMBOL 
ARRAY  CF  SLOT  POINTERS; 
REPRESENTS  A  SINGLE  HASH 
ANY  NUMBER  OF  SLOTS  ATTA 
EACH  EUCKET  (LIMITED  ONL 
SLCTS  MAY  BE  OF  4  DIFFER 
LONG  FUNCTION  IDS,  QUICK 
(OR  PARAMETERLESS)  FUNCT 


E  SLOTS;  SLOTS  ARE  ATTACHED  TO 
TABLE  REPRESENTED  AS  A  STATIC 
EACH  SLOT  POINTER  IN  HASH 
BUCKET;  EACH  BUCKET  MAY  HAVE 
CHED  AT  THE  HEAD  POINTER  OF 
Y  BY  MACHINE  CAPACITY)  . 

ENT  TYPES:  VARIABLE  IDS, 
FUNCTION  IDS,  AND  PARAMETER 
ION  IDS. 


IDTYP 

SLCTPTR 

HASH 

QKEYSEQ 

LKEYSEQ 

SLCTRCD 


(VAHID,  FNQ 
aSLOTRCD; 
ARRAY  (.HAS 
ARRAY  (.  1.  . 
ARRAY  (.  1.. 
RECORD 

IDENT  ;  T 
SLOT  :  S 
CASE  TYP 
VARID  ; 


FNQID  : 
FNLID  : 


ID,  FNLID,  FNPID)  ; 

HRNG. )  OF  SLOT?  TR ; 
FNQLEN.i  OF  KEY RNG 


FNQLEN  .) 
FNLLEN.) 


OF  KEY  RNG ; 
OF  KEYRNG; 


FNPID 


END  ; 


KSTBING; 
LOTPTR ; 

:  IDTYP  OF 
(REGNO 
AUXREG1 
AUXREG2 
(FNQ 
(FNL 
FNLLINK 
(FNREGNO 
FNP 
LEL 

FNP LINK 


INTEGER; 

INTEGER; 

INTEGER)  ; 

QKEYSEQ  ; 

LKEYSEQ; 

SLOTPTR)  ; 

INTEGER; 

SLOTPTR; 

L3LRNG; 

SLOTPTR) 


SLCTRCD 
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***********  *  *  ******** 


V  A  3  DECLARATIONS  (a  AIN) 


*  CPTICN  TOGGLES  AH  E  EOOLEANS  WHICH  CAN  BE  SWITCHED  FROM 

*  WITHIN  THE  WBASIC  SOURCE  PROGRAM  USING  THE  "OPTION" 

*  STATEMENT:  EXCEPT  FOR  ZERO  (LINKER  INTERFACE  TOGGLE)  , 

*  THE  RULE  IS  THAT  A  •+•  SETS/RESETS  TOGGLE  TRUE,  WHILE 

*  A  •-*  SET  S/RE  SETS  TOGGLE  FALSE;  DEFAULT  VALUES  ARE 

*  INDICATED  IN  THE  COMMENT  FOLLOWING  EACH  DECLARATION. 


LINK59 

PC100 

OPTPAR 

CFTNOE 

COCUME 

SYCUME 

DSEUME 

TOKCUT 

TOKIIS 


BOOLEAN; 
BOOLEAN; 
BOOLEAN; 
BOOLEAN; 
BOOLE  AN; 
BOOLEAN; 
BOOLEAN; 
BOOLEAN; 
BOOLEAN; 


* 

OPTION 

0 

2 

FALSE 

* 

OPTION 

1 

= 

TRUE 

* 

OPTION 

2 

2 

TRUE 

* 

OPTION 

3 

2 

TRUE 

* 

OPTION 

4 

= 

TRUE 

* 

OPTION 

5 

2 

FALSE 

* 

OPTION 

6 

FALSE 

* 

OPTION 

7 

= 

FALSE 

OPTION 

8 

= 

FALSE 

*  SETS  USED  IN  VARIOUS  TESTS  FOR  CHARS,  TOKEN  NUMEERS, 

*  TI-59  KEY  CODES,  AND  REGISTERS. 


LETTERS,  DIGITS.  ALFANUM 
DOUELE1,  DOUBLES 
SPECIALS,  SIGNS 
SUBERROR,  CRITICAL 
BINCETOKS,  RELOETOKS 
TRAILTOKS ,  SIGNTOKS 
EEGIN  EXPRTOKS 
NUMERICKEY 
RESERVE  REG 


OF  CHAR; 

OF  CHAR; 

OF  CHAR; 

OF  CHAR; 

OF  TOKEN  RNG ; 
OF  TOKEN3NG; 
OF  TOKENRNG; 
OF  KZYRNG; 

OF  REGRNG; 


*  RESERVED  WORD  TABLE  CHARACTER  AND  INDEX  ARRAYS. 


RWCHAR 

EWWCRD 

RWIZNG 


LEVEL  1 
L  EV  EL  2 
LEVELS 


*  SCANNER  ASSOCIATED  GLOBAL  VARIABLES 


ACCUM  :  TKSTRING; 

ACCINX  :  ACC3NG ; 

LINEUF  :  LNSTRING: 

LNEINX  :  0 . . MAXLINLEN  + 

LINUM,  LLINUM,  CLINUM  :  BASLINRNG ; 

TCKNUM,  LTCKNUM  :  TOKENRNG; 

LCCUNT,  RCOUNT,  ECOUNT  :  INTEGER; 

FLAGCET  :  BOOLEAN; 


#  #  *  *  a***-#*#**  ****•*##* 


(********4*****  **********************************  *****  ****** 

(*  *  ) 
(*  PRIMITIVE  CHAR  ROUTINES  *) 

(**  ******  ******  ************  ******************************  **^ 

<*-01 - *l 

r*  UPCASE  CONVERTS  ANY  LOWER  CASE  EBCDIC  (OR  ASCII)  CHAR  *f 
i*  TC  UPPER  CASE  EQUIVALENT.  *) 

* - - - *) 

FUNCTION  UPCASE  (VAR  CH  :  CHAR)  :  CHAR; 

BEGIN 

T?  r  H  T  *1  /  «  a  •  •  i  l  1  Tfi  T?  M 

UPCASE  :=  CHR(ORD(CH)  -  ORD('a')  ♦  ORD('A')) 

ELSE  IF  CH  IN  (.  «  j  '  .  .  '  IT*  .  )  THEN 

UPCASE  :=  CH  R  (0  R  D  (CH )  -  ORD('j')  ♦  ORD('J')) 

ELSE  IF  CH  IN  (.'s'..«z«.)  THEN 

UPCASE  :=  C  H  H  (0  R  C  (CH )  -  ORD('s')  ♦  ORD('S')) 

ELSE 

UPCASE  :=  CH 

END;  (*  UPPERCASE  *) 

^***  *****************************************************  **^ 

(*-0  2 - *) 

(*  TRANSEIGIT  RETURNS  THE  INTEGER  VALUE  FOR  NUMERIC  CHARS  * 
(* - - - * 

FUNCTION  TRANSDIGIT  (CH  :  CHAR)  :  INTEGER; 

BEGIN 

TRANSDIGIT  :  =  ORD  (CH)  -  CRD  ('0') 

END;  (*  TRANSDIGIT  *) 

^**  ************************  ****************************** **^ 
,*-0  3 - *) 

j*  XNUMEEH  RETURNS  INTEGER  VALUE  OF  A  NUMERIC  CHAR  STRING  *j 


FUNCTION  XNUMBER  ( A CCUM:  TKS  TRI NG ;  ACCINX : ACCR NG)  :  INTEGER; 
VAR  I,  TEMPNR  :  INTEGER; 

BEGIN 

TEMPNR  :=  0; 

FOR  I  :=  1  TO  ACCINX  DO 

TEMPNF  :=  TEMPNR  *  10  ♦  TRANSDIGIT  (ACCUM  (.  I.  )  )  ; 

XNUMBER  :=  TEMPNR 

END;  (*  XNUMBER  *) 

(**  ********************************************************  j 


i  *********** *************** 
* 

*  sc 

4c 

(*******44****  ****  ********* 


********************************) 

ANNER 

******************************* 


•  05 - 

SCAN  OSES  THE  RESERVED  W 
RETURN  SINGLE  TOKENS  FRO 
IT  ALSC  RFW  RITES  THE  SOU 
ALCNG  WITH  ANY  SCANNER  D 
ITS  CWN  END-OF-LINE  AND 
INTO  ITS  LINE  BUFFER  (LI 
DETECTED  IN  THE  SOURCE  F 


ORD  ARRAYS  TO  ISOLATE  AND 
M  THE  W3ASIC  SOURCE  FILE; 

RCE  CODE  TO  THE  LISTF  FILE 
ETECTED  ERRORS;  SCAN  INSERTS 
END-OF-FILE  CONTROL  CHARACTERS 
NBUF)  AS  THESE  CHARS  ARE 
ILE. 


PROCEDURE  SCAN  (VAR  TCKNUM  :  TCKENRNG) . 

VAR  TCHAR  :  CHAR; 

I  :  INTEGER; 


-05-01 - 

LINENR  RETURNS  NUMEER  OF  THE 
LINE:  WRITES  THE  LINE  NUMBER 
PADDED  WITH  ZEROS. 


FUNCTION  LINENR  :  EASLINRNG ; 
VAR  I  ;  EASLINRNG; 

BEGIN 

READ  ( E AS ICF ,  I)  ; 

ZERCPAD  (LISTF,  1,5); 
LINENR  :=  I 
END; 


CURRENTLY  SCANNED  WEASIC 
TO  THE  LISTF  FILE 


LINENR 


1  *-05-02 - 

*  R  DUNE  READS  TEXT  IMMEDIATELY  FOLLOWING  LINE  NUMBER; 

*  RETURNS  THE  TEXT  IN  A  MAXLINLEN  CHAR  BUFFER;  UNUSED 
*  PORTION  Or  BUFFER  IS  FILLED  WITH  BLANKS;  WRITES  EACH 
*  CHAR  CF  TEXT  TO  THE  LISTF  FILE  AS  IT  IS  READ;  REPORTS 
(*  AN  SRHCR  IF  NUMBER  OF  CHARS  EXCEEDS  MAXLINLEN. 


FUNCTION  ED LINE  :  LNSTRING; 

VAR  I.  J,  LINLENGTH  :  INTEGER; 
CH  :  CHAR; 


BEGIN 
I  •  =  0  • 

WHILE  ’(NCI  (EOLN(BASICF)  )  ) 
E  EG  I N 

I  :  =  I  1; 

READ  (EASICF,  CH)  ; 
RDLINE(.  I.)  :=  CH; 

WRITE  (LISTF,  CH) 

END: 

WEITE1N  (LISTF); 

LINLENGTH  :=  I; 

LN BIN X  :=  0; 

IF  LINLENGTH  <  MAXLINLEN 
FCR  J  ;=  LINLENGTH  +  1 
RCLINE  (.  J  .  )  :=  ELANK; 


MAXLINLEN) 


THEN 
TO  MAX 


(*  FILL  UNUSED 
LINLEN  DO 


BLANKS 


**##  #*##**## 


IF  (LINLENGTH  =  M  AXLINLEN  )  AND  (NOT  EOLN  ( BA  SIC  F)  )  THEN 
BEGIN 

WRITE  (L 1ST  F  ,  '  **  F**  SCAN  ERROR.  ..  LENGTH  OF  TEXT  '); 
WRITEIN  (LISTF.  'AFTER  LINUM>  '  ,  M  AXLINLEN  :2,'  CHAPS'); 
EEECRCT  :=  ERRORCT  +  1; 

REPEAT  (*  LOCATE  THE  EOLN  CHAR  TO  RECOVER  *) 

GET  (BASICF) 

UNTIL  EOLN  (BASICF) 

END: 

RDLINE  (.LINLENGTH  +  1.)  :  =  ENDLIN;  (*  INSERT  EOLN  CHAR  *) 


GET  (EASICF)  :  (*  MOVE  FILS  PTR  PAST  PASCAL  EOLN  CHAR  *) 

IF  EOF  (EASICF)  THEN  (*  OVERWRITE  EOLN  CHAR  IF  EOF  *) 

RDLINE  (.LINLENGTH  ♦  1.)  :=  ENDFIL 

END;  (*  RDLINE  *) 

<* - - - - - - *) 

i*  GETNOELANK  RETURNS  FIRST  NON-BLANK  CHAR  STARTING  WITH  *1 
<*  THE  CURRENT  CHAR  REFERENCED  BY  THE  LIN3UF  INDEX.  * 

■  * - *) 

FUNCTICN  GETNOBLANK  :  CHAR; 

BEGIN 

WHILE  LINEUF  (.  LNBINX.)  =  BLANK  DO 
LNBINX  :=  LNBINX  +  1  ; 

GETNOELANK  :  =  LIN BUF  (.  LNB  INX  . ) 

END;  (*  GETNOELANK  *) 

(* - *) 

f*  GETCHAR  RETURNS  THE  CHAR  FOLLOWING  LINE  EUFFER  INDEX  *i 

(*  AND  INCREMENTS  THE  LINE  EUFFER  INDEX. 

* - * 


FUNCTION  GETCHAR  ;  CHAR; 

BEGIN 

LNEINX  :=  LNBINX  +  1; 

GETCHAR  :=  LINEUF  ( .LNBINX  .) 

END;  (*  GETCHAR  *) 

(* - - - *) 

I*  FUTCHAR  INCREMENTS  THE  ACCUM  INDEX  AND  PLACES  A  CHAR  *| 
(*  INTO  THAT  POSITION  IN  THE  ACCUM  ARRAY.  *) 

(* - - - - - *> 

PROCEDURE  PUTCHAR  (CH  :  CHAR); 

EEGIN 

IF  NOT  (ACCINX  >=  MAXTOKLEN)  THEN 
EEGIN 

ACCINX  :=  ACCINX  ♦  1  ; 

ACCUM  (.ACCINX.  )  :=  CH 
END 


END 


(*  PUTCHAR  *) 


(*  PUTANDGET  PUTS  A  CURRENT  CHAR  INTO  ACCUM  AND  GETS  THE  *j 
j*  NEXT  CHAR  FROM  THE  LINE  BUFFER.  *) 


FUNCTION  FUTANTGET  (CH  :  CHAR)  :  CHAR; 


pwri  T  N 

"pUTCHAR  (CH)  ; 

PUTANDGET  GETCHAR 

END;  (*  PUTANDGET  *) 

(* - - - *) 


*  NUMSFCCL  READS  ALL  DIGITS  WHICH  COMPRISE  ONE  UNSIGNED  *1 
<*  INTEGER  AND  PUTS  THEM  INTO  THE  ACCUM  IN  SEQUENCE;  * 
(*  THE  NUMBER  OF  DIGITS  SPOOLED  IS  RETURNED.  *) 
(* - - - - - *) 


FUNCTION  NUMSPOOL  :  INTEGER; 


VAR  I  :  INTEGER; 

EEGIN 

“lFlTCHAH  IN  DIGITS  THEN 
BEGIN 
I  •  ~  0  * 

WHILE  iCHAR  IN  DIGITS  DO 
EEGIN 

TCHAR  :=  PCTANDGET  (TCHAR) 
I  :=  I  +  1 
END  ; 

NUMSFCCL  1=  I 
END 
ELSE 

NUMSFCOL  :=  0 


END; 


(*  NUMSPOOL  *) 


{* - - - - --*) 

i*  EXPONENT  READS  THE  CHARS  WHICH  COMPRISE  AN  EXPONENT  *1 
(*  PART,  COUNTS  THEM,  AND  PUTS  THEM  INTO  THE  ACCUM.  *) 
(* - - *) 


PROCEDURE  EXPONENT; 


“if*  (UPCASE  (TCHAR)  =  ’  E  ’ )  THEN 
EEGIN 

TCHAR  :=  PUTANDGET  (TCHAR)  ; 
IF  TCHAR  IN  SIGNS  THEN 

TCHAR  :=  PUTANDGET (TCHAR) 
ELSE 

PDTCHAR  (»+»): 

ECCUNT  :=  NUMSfCOL 
END 


END 


(*  EXPONENT  *) 


*  DECIMALET  READS  AND  COUNTS  THE  DIGITS  IN  THE  * 

*  FRACTIONAL  PART  Or  A  NUMBER  AND  PUTS  THEM  INTO  ACCUM.  * 

*  - * 


EROCECU3E  EECIMALPT; 

BEGIN 

IF  TCHAfi  =  PERIOD  THEN 
BEGIN 

TCHAR  :=  PUT  ANIGET  (TCHAR) 
RCOUNT  :=  NUMSECOL 
END 

END; 


(*  DECIMALET  *) 


■05-10 - 

ADJUST  IS  HIGHLY 
LITERAL  NUMERICS 
LCCUNT,  RCOUNT,  A 
TI-59  WILL  ACCEPT 
(PIUS  DECIMAL  POI 
WITHOUT  EXPONENT, 
SIGN)  AND  2  DIGIT 
SCANNED  AND  PUT  I 
WEASIC  SOURCE  COD 
MAXIMUMS  MUST  BE 
THIS  ROUTINE  IS  D 
VISUALIZE,  WITHOU 
THROUGH  ON  PAPER. 


- — - - - - - —  - - — *  i 

CALCULATOR-DEPENDENT;  ADJUSTS  ALL  * 

10  TI-59  FORMAT;  SETS  VALUES  FOR  * 

NDECOUNT  (LEFT,  RIGHT,  EXPONENT).  *) 

FROM  ITS  KEY30ARD  A  MAX  OF  10  DIGITS  *) 
NT  AND  SIGN)  FOR  INTEGERS  OR  REALS  * 
OR  8  DIGITS  JPLUS  DECIMAL  POINT  AND  * 
SIGNED  EXPONENT.  SINCE  NUMBERS  ARE  * 
NTO  THE  ACCUM  AS  THEY  ARE  READ  IN  * 

E,  THOSE  WHICH  EXCEED  THE  ABOVE  * 

CONVERTED  WHILE  IN  THE  ACCUM.  * 

IfFICULT  TO  UNDERSTAND,  MUCH  LESS  * 

T  USING  A  SPECIFIC  EXAMPLE  TO  WALK-  * 


9  l>" 


PROCEDURE  ADJUST; 

i*  MCVEXP°SHIFTS  THIS  POSITION  OF  THE  EXPONENT  PART  SO  *1 
(*  THAT  THE  NUMBER  HAS  MAX  OF  8  SIGNIFICANT  DIGITS,  SIGN,  *) 

(*  AND  DECIMAL  POINT  (NOTE:  SIGNIFICANCE  IS  LOST)  .  *) 

(* - : - : - 

PROCEDURE  MCVEXP ; 

VAR  I  :  INTEGER; 

BEGIN 

FOR  I  :=  1  TO  (2  ♦  ECOUNT)  DO 

ACCUM  (.9  *  I.)  :=  ACCUM  (.LCOUNT  +  RCOUNT  +  1  +1.); 

ACCINX  :=  11  +  ECOUNT 

END;  (*  MCVEXP  *) 


i— 

M| 


T- 


i*  ADJEXP  CCNVEHTS  NOMEERS  TO  EQUIVALENT  TI-59  COMPATIBLE 
*  FORM  EY  COORDINATING  EXPONENT  VALUE  ADJUSTMENT  WITH 
*  DECIMAL  EOINT  MOVEMENT  AND  DIGIT  TRUNCATION. 

* - - - - - 


EROCECURE  AEJEXP  (DIFE  ;  INTEGER) ; 
VAR  El,  E2,  EXP,  NEWEXP  :  INTEGER; 
EEGIN 

El  ;=  CRD  (ACCUM(.  1  2.) )  -  ORD(*0'); 
E2  ;=  CEE  ACCUM(.13.)  -  ORD('0*  ; 

EXP  :=  10  *  El  +  E  2 ; 


=  «-*  THEN 
EIFF 


IF  ACCOM  (.11.)  = 

NEWEXF  ;=  EXP  - 
ELSE 

NEWEXE  :=  EXP  +  CIFF; 

El  :=  TR0NCJNEWEXP/10)  : 

E2  :=  NEWEXP  -  (El  *  10)  ; 

ACCOM  (.  12.  )  :=CHR(E1  +ORD(*Of)); 
ACCOM  (.13.)  :=  CHR  (E2  +  ORD('O')) 
END ; 


<* - - — . - . 

EEGIN  (*  ADJUST  MAIN  *) 

IF  (LCCUNT  >  10)  OR  ((LCOUNT  >  8) 
BEGIN 

ACCUM  (.9  . )  :=  PERIOD; 

IF  ECCUNT  =  0  THEN 
EEGIN 


(*  AD JE  XP  *) 
- *) 


AND  (ECOUNT  <>  0))  THEN 


ACCUM  I 

[.10.  ] 

;=  '  E  ' 

ACCUM  1 

.11. 

i  ;=  *  +  » 

ACCUM  \ 

.12. 

:=  *0* 

ACCUM  ( 

f.13. 

:=  *0* 

ACCINX 

‘  = 

13 

END 
ELSE 
EEGIN 
MCVEXP  ; 


END 
ELSE  IF 


IF  ECOUNT 

=  1 

THE  N 

BEGIN 

ACCUM 

(.13. 

)  :  = 

ACCUM  i 

.12. 

ACCIN1 

t  ;  = 

13 

END 

. 

END; 

AD J  EX  r  (LCOUNT 

-  8) 

t 

LCCUNT  ;=  8; 

RCOU 

'NT  : 

(LCOUNT  +  FCOUNT  : 
((LCOUNT  ♦  RCOUNT 


END; 
(** 


EEGIN 

IF  ECCUNT  =  0  TEEN 
EEGIN 
ACCINX 
RCCUNT 
END 
ELSE 
EEGIN 
MCVEXP 
RCCUNT 
END 

END 


);  ECOUNT  : =  2 
■10)  OR 

>  8)  AND  (ECOUNT  <>  0))  THEN 


ii; 

10  -  LCCUNT 


=  8  -  LCOUNT 


(*  ADJUST  *) 

. . *) 
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*  #  #  *  * 


(*-05-11 - * 

(*  R U LOCKUP  LOOKS  UP  IOKEN  IN  RESERVE  WORD  TBL  BASED  UPON  * 
(*  TOKEN  LENGTH;  RETURNS  TOKEN  NUMBER;  IF  NOT  FOUND,  * 

*  TCKNUM  =  IDENTOK  (IE.  TOKEN  IS  ASSUMED  IDENTIFIER).  * 
(* - * 

FUNCTION  FWLOOKUP  ;  INTEGER; 

VAR  MATCH  :  BOOLEAN; 

CHINCX,  WDINDX,  LGINDX,  ACINDX  :  INTEGER; 

BEGIN 

LGINDX  :=  ACCINX; 

WDINDX  ;=  RWLENG  ( .  IGINDX.  )  ; 

REPEAT 

MATCH  ;=  TRUE; 

ACINDX  ;=  1; 

CHINCX  :=  RWWORD  (.WDINDX.)  ; 

WHILE  (MATCH)  AND  (ACINDX  <=  LGINDX)  DO 
BEGIN 

IF  UPCASE(ACCUM(.  ACINDX.)  )  <>  RWCH  AR  ( .  CHIN  DX. )  THEN 
MATCH  ;=  FALSE 
ELSE 
BEGIN 

ACINDX  ;  =  ACINDX  ♦  1  ; 

CH  IN  DX  ;=  CHINDX  +  1 
END 

ENE; 

WDINDX  :=  WDINDX  +  1 

UNTIL  (MATCH)  OR  (CHINDX  =  RWWORD  (.  RWLENG  (.  LGINDX+ 1 .).))  ; 
IF  MATCH  THEN 

R WLOCKUP  :=  WDINCX  -  1  (*  BACK-UP  THE  WORD  INDEX  *) 

ELSE 

RWLCCKUP  :=  IDENTOK 

END;  (*  RWLOOKUP  *) 


<* . — . *) 

I*  CMTSFCCL  READS  AND  DISREGARDS  THE  TEXT  OF  COMMENTS.  * 

(*  FLAGCMT  IS  USED  FOR  COMMENTS  CONTINUED  ON  NEW  LINE.  * 
(* - - - * 

PROCEDURE  C  MTS  POOL  ; 

BEGIN 


FLAGCMT  :=  FALSE;  (*  RESET  COMMENT  CONTINUATION  FLAG  *) 
WHILE  NCT  (TCHAR  IN  CRITICAL)  DO 
TCHAR  ;=  GETCHAR; 

IF  ICHA3  =  •  &•  THEN 
FLAGCMT  :=  TRUE 

END;  (*  CMTSPOOL  *) 


(* . . . - - - *) 

i*  RECOVER  SCANS  AND  DISREGARDS  THE  REMAINDER  OF  THE  *j 

i*  CURRENT  TOKEN  AND  STOPS  AT  START  OF  NEXT  TOKEN.  * 

i  * - . - *) 


PROCEDURE  RECOVER; 

BEGIN 

WHILE  NCT  (TCHAR  IN  (CRITICAL  ♦  (.BLANK.)})  DO 

TCHAR  ;=  GETCHAR  (*  SKIP  TO  NEXT  TOKEN  AND  RETURN  *) 


END;  (*  RECOVER  *) 

<*=  =  =  =  ===  =  =  ====  =  =  =  ========  ==  =  ===============  ==  =  ^  =  ==^====^} 
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EEGIN 


<*  SCAN  MAIN  *) 


LTCKNUM 

TOKNUM 

ACCINX 

LCCONT 

3CCUNT 

ECCUNT 

TCHAR  : 


=  TOKNUM;  (* 
ERRORTOK;  (* 

o;  i* 

0;  (* 
0; 

GE^NO  BLANK;  (* 


SAVE  LAST  TOKNUM  IN  LTOKNUM 
INITIALIZE  NEW  TOKEN  NUMEEE 
INDICATES  TOKEN  LENGTH  IN  ACCUM 
NO.  OF  DIGITS  LEFT  OF  DECIMAL 
NO.  OF  DIGITS  RIGHT  OF  DECIMAL 
NO.  OF  DIGITS  IN  EXPONENT 
GET  NEXT  NON-BLANK  CHAR 


IF  (TCHAR  =  ENDFIL)  THEN 
TCKNUM  :=  EN DFILTCK 


(TCHAR  =  *  S*)  THEN 


ELSE  IF 
BEGIN 
CLINUH 
LINEOF 
TCHAR 
TCHAR 
TCHAR 

IF  FLAGCMT 
C  FT  SPOOL 
ELSE 

SCAN  (TOKNUM) 

END 


;=  LINE  NR; 

;=  RDLINE; 

:=  GETCHAR: 

;=  GETNOELANK; 
:=  GETCHAR; 
-  THEN 


<* 

<* 


READ  LINE  NO.  OF  CONT  LINE 
READ  TEXT  CF  CONT  LINE 
MOVE  LNBINX  PAST  TRAIL 
FIND  LEADING  ON  NEW  LINE 

MOVE  LNBINX  PAST  CONT  "6" 

COMMENT  CONTINUATION 

SCAN  NEXT  TOKEN  AFTER  "S'* 


ELSE  IF  (TCHAR  =  ENDLIN)  THEN 
EEGIN 
LLINUM 
LINUM 
LINBUF 
TCHAR 
TCKNUM 
END 


;=  LINUM; 

:=  LINENR; 

;=  RDLINE; 

:=  GETCHAR: 

:=  ZNDLINTOK 


PASS  LINUM  TO 
READ  LINE  NO. 
READ  TEXT  OF  NEW 
MOVE  LNBINX  PAST 
ASSIGN  TOKEN  NO. 


LAST  LINUM  * 

OF  NEW  LINE  * 
LINE  * 

ENDLIN  CHAR  * 
FOR  ENDLIN  * 


ELSE  IF  (TCHAR  IN  IETTERS )  THEN 
EEGIN 

WHILE  (TCHAR  IN  ALFANUM)  DO 
EEGIN 

TCHAR  :=  PUTANDGET  (TCHAR)  ; 

IF  TCHAR  =  (JSC ORE  THEN  (*  ASSUMES  DSCOSE  WILL 
TCHAR  :=  EUT  AND  GET  (TCHAR)  (*  NOT  OCCUR  AT  END 

END: 

IF  ACCINX  <=  RWLENGCT  THEN 
EEGIN 

TCKNUM  :=  SWLOOKUP: 

IF  TOKNUM  =  CMTOKEEM  THEN  (*  LOOK  FOR  REM  CMT 
CMTS  POOL 

END 

ELSE 

TCKNUM  :=  IDENTOK 


i| 


END 

ELSE  IF  (TCHAR  IN  DIGITS)  THEN 
EEGIN 

LCCONT  :  =  NUMSPCCL; 

IF  TCHAR  =  PERIOD  THEN 
DECIMALPT 

ELSE  IF  (UPCAS  E  (TCHAR  )  =  *  E*)  THEN 
PCTCHAR  (PERIOD)  ; 

EXPONENT  ; 

ADJUST; 

TCKNUM  :=  NUMEERTOK 
END 
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*******  *  *  •*  *  * 


ELSE  IF  (TCHAS  =  PERIOD)  THEN 
EEGIN 

DECIMAL?!; 

EXECNENT; 

ADJUST; 

TCKNUM  :=  NUMBERTOK 
END 

ELSE  IF  (TCHAS  IN  EC0BLE1 }  THEN 
BEGIN 

TCHAS  :=  PUTANCGET  (TCHAR)  : 

IF  (TCHAS  IN  DCUBLE2)  THfiN 
TCHAS  :=  PUTANDGET  (TCHAS)  ; 

TOKNUM  :  =  EWLOCKUP 
END 

ELSE  IF  (TCHAE  IN  SPECIALS)  THEN 
EEGIN 

TCHAS  :=  PUTANCGET  (TCHAE)  ; 

TCKNUM  :=  RWLOCKUP; 

IF  TOKNUM  =  CMTCKEXC  THEN  (*  LOOK  FOR  EXCLAM  CMT  *) 
C  MT  SPOOL 

END 

ELSE  IE  (TCHAR  IN  SUBESSOR)  THEN 
EEGIN 

WRITE  (LISTF,  ***F**  SCAN  3RSOR  FOUND  AT  '* •  ,  TCHAR); 
WRIT21N  (LISTF,  '"...CHAR  NOT  IN  THIS  SUBSET* ); 

EEECECT  :=  ERRCRCT  +  1; 

RECOVER 

END 


EEGIN 

WRITE  (LISTF,  '**F**  SCAN  EEROS  FOUND  AT  "•  ,  TCHAR); 
WRIIELN  (LISTF-  *'*...  UNRECOGNIZ  ABLE  CHAR*); 

ERRCRCT  :*  ERRORCT  +  1; 

RECOVER 

END; 

FOR  I  :=  (ACCINX  ♦  1}  TO  MAXTOKLEN  DO 

ACCUM  (.  I.)  ;=  BLANK;  (*  BLANK  OUT  REMAINDER  OF  ACCUM  *) 


«  DEEUGGING  TOOL:  L 
IF  TOKCCT  THEN 

WEITEIN  (OUT  EIL E  , 
IF  TCKLIS  THEN 

WRITELN  (LISTF,  • 


LISTS  TOKNUM 


TOKEN 


*  * : 6 ,  TCKNUM: 2  , 
* : 6,  TOKNUM: 2,  * 


IS  IT  IS  REAE.  *) 
(*  OPTION  7  *) 
,  ACCUM,  *1*1; 

(*  OPTION  8  *) 
ACCUM,  •  |  *) 


(*  SCAN  *) 


<*- 

END 


(**************************  ******  **  **********  **************’ 
| 

(*  ERROR/LINE  END  HANDLING  ROUTINES  * 

r  * 

(***♦*  #  4$  H  ***  *  ***  *********  **********  ************  ********  **' 
(*-36 - *) 

(*  PRECOVER  SCANS  A  LINE  AND  DISREGARDS  TOKENS  UNTIL  IT  * 
FINDS  A  CONSENT,  AN  END  OF  LINE,  OR  AN  END  OF  FILE.  * 


EROCEEUHE  PEECOVER; 

EEGIN 

WHILE  NOT  (TOKNUM  IN  TRAILTOKS)  DO 
SCAN  (TCKNUM) 

END; 


(*  PRECOVER 


(********************************************************: 

(*-20-*) 

rROCEDURE  GZNKEY  (OPCODE  :  INTEGER)  ;  FORWAJ 

(***************  *****************************************: 

,*-07 - - - . - - - 

(*  PEBROR  IS  THE  GENERAL  PURPOSE  ERROR  HANDLER  WHICH: 

(*  GENERATES  SPACE  FOR  REGISTER  OR  ADDRESS  INSERTION  IN 
(*  ORDER  IC  PREVENT  THE  CODEDUMP  ROUTINE  FROM  CAUSING  A 

!*  SYSTEM  ERROR  DUE  TC  INVALID  TI-59  CODE  GENERATION; 

*  ANNOTATES  THE  LISTING  FILE  WITH  THE  ERROR  LOCATION: 

*  INCREMENTS  THE  ERBCR  COUNT;  RECOVERS  TO  END  OF  LINE. 

PROCEDURE  PERROR; 

BEGIN 


WRITELN  (LIST?  «**F**  FATAL  ERROR  FOUND  AT  ,  ACCUM,  »  "' ] 
ERRCECT  :=  ERRORCT  ♦  1; 

PRECOVER 

END;  (*  PERRCR 

(**************************  ********  **********************: 

(*-08 - 

(*  PSUBEERCB  DISTINGUISHES  AN  ERROR  WHICH  IS  A  RESULT  OF 
j*  USING  A  WEASIC  COMMAND  NOT  IN  THIS  IMPLEMENTATION. 

PROCEDURE  PSUBERROR; 

EEGIN 

WRITELN  (LISTF , 1  **F**  SUBSET  ERROR  FOUND  AT  M,,ACCUM,"' 
ERRCECT  :=  ERRORCT  +  1 ; 

PRECOVER 

END;  (*  PSUBERRCR 

(********************************************************; 


**************************  ******************************** 
*  *' 

*  SYHEOL  TABLE  MANAGEMENT  ROUTINES  * 

*  *' 
********************************************************** 


*-1  1 - *■ 

*  HASHVAL  RETURNS  TEE  HASH  VALUE  OF  THE  STRING  CONTAINED  * 

*  IN  THE  ACCUM  (SUM  CF  ORD  VALUES  OF  CHARS  MOD  HASHEASE)  * 


ffi r 


(*- 1  4 - * 

<*  NEWREG  RETURNS  THE  VALUE  OF  THE  NEXT  REGISTER  WHICH  * 

*  AVAILAELE  FOR  USE  AS  VARIABLE  STORAGE;  RESERVED  REGS  * 

(*  ARE  SKIPPED  AND  A  COUNT  IS  MAINTAINED  TO  IDENTIFY  THE  * 
(*  POINT  AT  WHICH  TOO  MANY  REGISTERS  HAVE  BEEN  USED.  * 

i*  NOTE  THAT  IF  THE  LAST  REG  IS  RESERVED  AN  OVERFLOW  WILL  * 

*  NOT  BE  DETECTED  AND  PROCESSING  WILL  CONTINUE.  NOTE  * 

i*  ALSO  THAT  A  MEMORY  OVERFLOW  DOES  NOT  STOP  THE  PARSER  * 
i*  FROM  ANALYSIS  AND  CODE  GENERATION,  HOWEVER  THE  REG  * 

(*  SUMMARY  MAY  NOT  REFLECT  ACCURATE  REGISTER  INFO.  * 

*  - — - * 


FUNCTION  NEWREG  :  INTEGER; 


BEGIN 

WHILE  NEXTREG  IN  RESERVE 
NEXTREG  :=  NEXTREG  +  11 
NEWREG  ;=  NEXTREG 


REG  DO 


IF  NEXTREG  = 
BEGIN 
PWARN ; 
WRITE 
WRITE 
WRITELN 
NEXTREG 
END 
ELSE 

NEXTREG 

END  ; 


(REG3ASE  ♦  STARTREG) 
*  NOTE  THAT  IF  LAST 
THIS  WARNING 

******  memory 

REGBASE;  1)  ; 

»  VIRTJRT.tl 


* 

LISTF, 
LIST?  , 
LISTF 


THEN 

REG  IS  RESERVED,  THEN 
WILL  NOT  BE  TRIGGERED 
OVERFLOW.  ..>  * )  ; 


.  A-  1J  ±  X  f  V 

=  STARTREG 


=  NEXTREG  +  1 


VARIABLE  names 


IN  USE.. .REUSING.’) 
(*  RESET  THE  REGISTER  STACK 


(*  NEWREG  *) 


(********** ****************  ****************  ************  ****^ 

(*-15 - *) 

(*  NEWLEI  RETURNS  THE  KEY  CCDE  FOR  THE  NEXT  LABEL  ON  THE  * 
(*  LABEL  STACK;  IF  A  LABEL  STACK  OVERFLOW  OCCURS,  THE  *) 

{*  SUMMARY  ITEM  WHICH  INDICATES  NUMBER  OF  LABELS  USED  MAY  * 

j*  NCT  REELECT  ACCURATE  INFORMATION.  * 


FUNCTION  NENL3L  :  LBLENG; 

EEGIN 

NEWLEL  ;=  CLABEL  (.  LELCT.)  ; 

LBLCT  :=  LELCT  +1; 

IF  LBLCT  =  LBLBASS  +  1  THEN 
EEGIN 
PWARN* 

WRITE’  (LISTF,  •***♦*  LABEL  OVERFLOW. .  .>  »); 

WRITE  LISTF,  L3L3ASE:1); 

WRITELN  (LISTF,  '  IN  USE. ..RESET  TO  0.’); 

LELCT  :=  1 
END; 

END;  (*  NEWLEL  *) 

{********** ***  *************  ******  ****  ************  ********  **  j 


(*-16 - *) 

l*  F N STAC  KLCOK  SEARCHES  THE  FNP  ACTIVATION  STACK  FOP,  THE  *) 
(*  IDENTIFIER  IN  ACCUM  AND  RETURNS  A  POINTER  TO  ITS  SLOT  * 
(*  IF  IT  IS  A  FORMAL  PARAMETER  IN  AN  ACTIVE  FNP,  OTHER-  *) 
(*  WISE  THE  POINTER  RETURNED  IS  NIL.  *) 

(* - *) 

FUNCTION  FNSTAC  KLOOK  (ACCUM  :  TKSTRING)  :  SLOTPTR ; 

VAR  FLOCK,  PARMPTR,  TPARMPTR  :  SLOTPTR; 

FOUND  :  BOOLEAN; 

BEGIN 

FLCCK  :=  FNSTACK; 

FOUND  :=  FALSE; 

PARMPTR  ;=  NIL; 

TPARMPTR  :=  NIL; 

WHILE  (FLCOK  <>  NIL)  AND  (NOT  FOUND)  DO 
BEGIN 

PARMPTR  :=  FLOCKS. FNP ; 

IF  PARMPTR  <>  NIL  THEN 
REPEAT 

TPARMPTR  :=  PARMPTR; 

FCUND  :=  (PARMPTR  S.IDENT  =  ACCUM); 

PARMPTR  :=  PARMPT RS. SLOT 
UNTIL  (FOUND)  OR  (PARMPTR  =  NIL) ; 

FLCCK  ;=  FLOORS. FNPLINK 
END; 

FNSTACKLCCK  :=  PARMPTR; 

IF  FCUND  THEN 

F  NST  ACKLCOK  :=  TPARMPTR 

END;  (*  FNST ACKLOCK  *) 

(******************************************************  ****^ 


(*-  1  7 - - - - - 

(*  IDLCCKU?  FIRST  SEARCHES  ACTIVE  FNP  STACK  (FORMAL  * 
*  PARAMETERS),  THEN  THE  SYM  TEL  UNTIL  IT  FINDS  THE  * 
(*  IDENTIFIER  NAME  CURRENTLY  IN  ACCUM:  RETURNS  POINTER  TO  * 
(*  THE  SICT  FOR  THAT  IDENTIFIER;  CREATES  AND  ENTERS  A  * 
(*  SLOT  FOR  THE  IDENTIFIER  IF  IT  DOSS  NOT  YET  EXIST.  * 
<* - - - — . . . —  - . 


FUNCTION  IDLOOKUP  ( ACCUM : TK STR ING ;  AC Cl NX : ACC RNG)  :  SLOTPTR 


VAR  HICOK ,  TLOCK  :  SLOTPTR; 


*-  17-01 - - - - - 

*  ENTERIC  INSERTS  AN  APPROPRIATE  SLOT  INTO  THE  SYM  TBL 

*  FOR  TEE  IDENTIFIER  IN  ACCUM  AND  RETURNS  A  POINTER  TO 

*  THAT  SICT. 


FUNCTION  ENTERID  (  ACCUM;  TKS  T3I  NG  ;  ACCINX  :  ACCRNG)  :  SLOT  FT  R; 
VAR  IDSICT  :  SLCTPTR; 

EEGIN 

ID  SLOT  :=  GETSLOT  (ACCUM,  ACCINX)  ; 

IF  NCT  FN  CHK(ACCUM)  THEN 
WITH  ID5L0T5  DO 


WITH  IDSL0T3  DO 
BEGIN 

TYP  :=  VARIC; 

REGNO  :=  N EW  REG; 

AUXREG 1  ;=  -1; 

A  U  X  R  EG  2  :=  -1; 

WRITS  (NAMEF,  '  •  :  8  )  ; 

ZERO  PAD  (NAMEF,  REGNO, 


[*  USED  FOR  INDEX  VARS  TO  *] 


FOR-NEXT  LOOPS  ONLY. 


:  3,  IDENT) 


WRIT  ELM  (NAMEF,  •  •  :3,  IDENT) 

END 

ELSE 

KITH  IDSL0T3  DO 
BEGIN 

TYP  ;=  FNPID; 

FNF  :=  NIL; 

F  UPLINK  :=  NIL; 

FNREGNO  :=  NEWF.EG; 

WRITELN^NAMEF,  1  1  ;5,  FNREGNO:  5, 
END  * 

ENT  ERIE ’ : =  IDSLOT 
END  ; 


•  :  3  ,  IDENT) 


(*  ENTERID  *) 


BEGIN  (*  IDLOOKUP  MAIN  *) 

TLCCK  :=  ENSTACKLOCK  (ACCOM); 

I?  TLOCK  =  NIL  THEN 
BEGIN 

HLCCK  :=  BUCKET  (.HASHVA1  (ACCOM,  ACCINX).); 

IF  HLCCK  <>  NIL  THEN 
BEGIN 

TLOOK  :=  H LOOK ; 

HLOOK  :=  HICOO.S  LOT; 

WHILE  (HLOCKONIL )  AND  (TLOOK5) .  I DENTO  ACCUM)  DO 
BEGIN 

HLOOK  :=  HLOO  K5>  .  SLOT; 

TLOOK  ;=  T LOO  K3.  SLOT 
END; 

IF  TLOCK3.IDENT  =  ACCUM  THEN 
IDLOCKUP  :=  TLOOK 
ELSE 

IDLOCKUP  :=  ENT  ESI D  (ACCOM,  ACCINX) 

END 

ELSE 

IELCOK  UP  :=  E  NTS  RID  (ACCUM,  ACCINX) 

END 

ELSE 

IDLOCKUP  :=  TLOOK 


END 


(*  IDLOOKUP  *) 


GT" 


**********  **♦  ****************************************:*$**#) 

*  *) 

*  CODE  DATA  SIRUCTU  RE  MANAGEMENT  ROUTINES  *) 

*  *) 
********************************************  **************) 

*- 1  a - *) 


(*  NEWCCEE  RETURNS  A  POINTER  TO  A  NEW  CODE  DATA  NODE;  * 

(*  FIELDS  ARE  INITIALIZED  TO  A  DEFAULT  VALUE  (EXCEPT  KEY)  * 

(* - * 

FUNCTION  NEWCODE  (OPCODE  :  INTEGER)  :  CODEPTR  ; 

VAR  CP  :  CODEPTR; 


EEGIN 

NSW  (CP) 
CPi.SECE 
CP2.JMFP 
CPa.EAKE 
CP2.ADDR 
CPa.KEY 
NEWCODE 
END; 


NIL; 

NIL; 

NIL; 

-  1 ; 

OPCODE 
CP  ; 


(*  NEWCODE  *) 


^ ***********  ******  *****************************************  ^ 


(*-1  9 - *) 

(*  PUTKEY  INSERTS  A  CODE  DATA  NODE  INTO  THE  CODE  DATA  *) 
(*  STRUCTURE  IN  FRONT  OF  CPCUR  BUT  AFTER  ENDC?  WHICH  IS  *) 
(*  TO  SAY  THAT  THE  NODE  IS  THE  NEW  END  CODE  DATA  NODE.  *) 
(* - *) 


EROCEDUBE  PUTKEY  (VAR  HO  LDP  :  CODEPTR); 

EEGIN 

I?  HOLDE  =  NIL  THEN 

HCLDE  :=  NEWCODE  (-1)  ; 

ENDCPa . SEQP  ;=  HOLDP; 

HOLDPa.SECF  :=  CPCUR; 

ENDCP  ;=  ENDCP3.SSCF 

END;  (*  PUTKEY  *) 

(*  **********************  *********************  *******  *******) 


(*-20 - *) 

*  GENKEY  FILLS  THE  CPCUR  REFERENCED  NODE  WITH  THE  OPCODE  *) 
(*  PASSED  TO  IT,  AND  ATTACHES  ANOTHER  EMPTY  NODE  TO  THE  *) 
(*  CODE  DATA  STRUCTURE  AFTER  THE  ONE  JUST  FILLED.  *) 

<* - - - . . . . . *) 

PROCEDURE  GENKEY;  (*  FORWARD  DECLARATION  WITH  *) 

(*  ERROR  HANDLING  ROUTINES  *) 

VAR  C?  :  CCDEPTR; 

EEGIN 

CPCUR3. KEY  :=  OPCODE: 

cpcuRa.sECP  ;=  newcode  (- i) ; 

CPCUR  :=  CPCURa.SECE; 

ENDCP  :=  ENDCP3. SECP 

END;  (*  GENKEY  *) 

^**  ******************************************************  **^ 
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2  1 - - 

(*  I NSERIKE Y  IS  USED  AFTER  ALL  CODE  HAS  BEEN  GENERATED  TO  * 

*  INSERT  LABELS  TO  GCSUB  REFERENCES;  NOTE  THAT  SNCC?  * 

*  MUST  NOT  BE  MOVED  CR  USED  BY  THIS  PROCEDURE  SINCE  IT  * 

*  NOW  RESIDES  AT  THE  END  OF  THE  CODE  STRUCTURE  AND  WILL  * 

*  BE  USED  TO  FLAG  THE  END  CF  THE  STRUCTURE  TO  TRAVERSING  * 

*  POINTER  PROCEDURES.  * 


PROCEDURE  INSERTKEY  (OPCODE  :  INTEGER;  VAR  LOCUS  :  CODEPTR)  ; 
VAR  C?  :  CCDEPTR; 

BEGIN 

CP  :=  NEWCCDE  (OPCODE)  ; 

CP2.SECF  :=  LOCUS; 
i  nriK  •=  rp 

END;  *  <*  INSERTKEY  *) 


/* c*  ******************************************  ************: 


*  GETNEWHDE  CONSTRUCTS  AND  RETURNS  A  POINTER  TO  A  LINE  *'< 

*  AND  CODE  DATA  NODE  PAIR:  ALL  FIELDS  OF  BOTH  NODES  ARE  *) 

*  INITIALIZED;  THIS  FAIR  OF  NODES  IS  USED  TO  HEAD  THE  *'< 
(*  CHAIN  CF  CODE  GENERATED  FOR  A  PARTICULAR  W  BA  SIC  SOURCE  * 

*  LINE.  (NOTE  THAT  NEWCODE  INITIALIZES  CODE  NODE)  *) 

FUNCTION  GET NEW  HDR  (LINUM  :  BASLINRNG)  :  LINEPTR ; 

VAR  LF  :  LINEPTR; 

C?  ;  CODEPTR; 

EEGIN 

N^W  (LP)  * 

LPa.CFTR  :=  NEWCODE  (-1); 

LF3.LINC  :=  LINUM; 

LP3.LPTF  :=  NIL; 

GETNEWHDE  :=  L  P 

END;  (*  GETNEWHDE  *) 

/***********  ****************************************  *******) 


*  PUTNEWHDF  INSERTS  A  HEADER  fLINS/CODS  DATA  NODE  PAIR) 

*  INTO  THE  CODE  DATA  STRUCTURE  AT  THE  POSITION  OF  THE 

*  CURRENT  LINS  MARKING  POINTER.  LPCUR.  NOTE  THAT  THE 

*  BAKP  IS  USED  HERE  TO  MARK  THE  LOCATION  OF  THE  START  CF 


CODE  CORRESPONDING  TO 


NSW  SOURCE  LINE. 


PROCEDURE  PUTNEWHDR  (VAR  LPCUR,  LP  :  LINEPTR)  ; 

BEGIN 

LP3.LPTR  :=  LPCUR®. LPTR; 

LPCUR®. LPTR  :=  LP; 

LPCUR  :=  LP; 

ENDCP®. SEQP  :=  LPa.CPTR; 

CPCUR  :=  LF5.CPTS: 

CPCUR® . EA  KP  :=  ENDCF 

END;  (*  PUTNEWHDR  *) 

j********** *  ** *************  ****************** ** ** ******** ** j 


(*-24 - 

(*  SETLINE  COORDINATES  THE  SET  UP  OF  THE  CODE  DATA 
(*  STRUCTURE  FOR  THE  EEGINNING  OF  CODE  GENERATED  FOR  A 
(*  NEW  WEASIC  SOURCE  LINE;  IF  LINE  NUMBER  HEADER  NODES 
(*  ALREADY  EXIST  3ECACSE  FORWARD  JUMP  REFERENCES  REQUIRED 
(*  THEIR  EXISTENCE,  TEEN  THESE  NODES  ARE  CHECKED  FIRST 
(*  FOR  THE  CURRENT  LINE  NUMBER. 


PROCEDURE  SETLINE  (VAR  LPCUR,  LP  :  LINEPTR) ; 
VAR  LNUMBER  :  BASLINRNG; 

EEGIN 

LNUMBER  ;=  LINUM: 

IF  TOKNUM  =  ENDLINTCK  THEN 
LNUMEER  :=  LLINUK; 

IF  LPCUE3 .  LPTR  <>  NIL  THEN  (*  IF  LINE  D. 
BEGIN  (*  EXIST  FR< 


IF  (L  PCURd .LPT  E2. LINO  )  =  LNUMBER  THEN 

EEGIN  (*  CURRENT  LINE  NUMBER  IS  *) 

LECUR  :=  LFCURS.  LFTR:  /*  THE  NEXT  ONE  IN  CHAIN  *) 
ENDCP3.SEQP  :  =  LP CURd. CPTR ; 

CPCUR  :=  LFCUR2.CFTR; 

CFCUR3  .  BAKF  :=  EN  DCP 
END 
ELSE 
EEGIN 

LE  :=  GETNEWHDR  (LNUMBER)  ; 

PUTNEWHDR  (LPCUR,  LP) 

END 

END 

ELSE 

BEGIN 

LP  ;=  GETNEWHDR  (LNUMBER); 

PUTNEWHDR  (LPCUR,  LP) 

END 

END;  (*  SETLINE  *) 

(****** ****************************************  *******) 


[*  IF  LINE  DATA  NODES 
*  EXIST  FROM  JUMP  REFS.  , 


(*  CURRENT  LINE  NUMBER  IS  * 
FTR:  /*  THE  NEXT  ONE  IN  CHAIN  * 
CURd.CPTR; 


*  # 


(*-25- - - - - - - *) 

(*  SEIJMFEXT  SETS  THE  EXTERNAL  JMP  PTR  FROM  CFCUR3.JMPP  *) 
j*  TO  THE  WEASIC  L  IN  DM  INDICATED  BX  THE  GOTO  OR  GOSUE 


PROCEDURE  SETJMPEXT  (LINUM  :  BASLINRNG) 


EEGIN 

IF  LINUM  >  L  PC  DR  2) .  UNO  THEN 
EEGIN 

LPIEAD  :=  LPC0R3.  LPT  R ; 

TPTRiTT  •  a  T  P  P  II  ft  • 

WHILE  (LPTRAIL2.ilNO  <  LINUM)  AND 
EEGIN 

LFLSAD  :=  LPLEAD3.  LPTR  ; 

LFTRAIL  :=  LPTRAI  L3 .  LPTR 
END: 

IF  LPTFAIL3.  LINO  =  LINUM  THEN 
EEGIN 

CECUR3.JMPF  :=  LP  TRAILS  .  CPTR; 
LFTRAIL3.CPTR3.ADDR  :=  0  (*  MAR 

END 
ELSE 
EEGIN 

LFTRAIL3.  LFTR  :=  GET  NEWHDR  (LINUM); 
LASTLP  :=  LPTR  AIL  3.  LPTR 


(*  FORWARD  JUMF  *) 
(LPLEAD  <>  NIL)  DO 


(*  SET  JMPP  PTR 
K  JMP1 


MPP  TEFMINAL 


CFCDS3.  JMPP  :=  LASTLP3.  CPTR  ; 
LASTLP3.  CPTB3.  ADDR  :=  0  (* 

END 


MAR 


r 


SET  JMPP  PTR 
JMPP  TERMINAL 


I! 


END 

ELSE 

EEGIN  (*  BACKWARD  JUMP  *) 

LPLEAD  •  =  FIRSTLP* 

WHILE  (LPLEAD3  .LINO  <>  LINUM)  AND  (LPLEAD  <>  NIL)  DO 
LPLEAD  :=  LPLEAD 3.  LPTR; 

IF  LPLEADS .  L  INC  *  LINUM  THEN 
EEGIN 

CPCUR3.JMPP  :=  LPLEAD3.  CPTR:  (*  SET  JMPP  PTR  *) 

LELEAD3.  CPTR3.  ADDR  :=  0  (*  MARK  JMPP  TERMINAL  * 

END 

END  (*  ASSUMES  THAT  A  LINO  =  LINOM  ALWAYS  EXISTS  !  *) 

(*  SETJMPEXT  *) 


END 


{**4^;%«*:t^**  ************  **^******************  **************) 

!*  *) 
*  FUNCTION  CALL  ROUTINES  *) 

*  *) 
******$*4*****************  4*4  *************  *4  44*4*4*4* *4*  ** j 

(4-40-*} 

PROCEDURE  PEXPR;  FORWARD; 

(*-4  1-*) 

PROCEDURE  FPRIMARY;  FORWARD; 


(4  4444444444  4*  4  *  4*  *  *  4  44**4  4******************************  **) 

14-26 . . - - - *) 

(*  GENFNC  GENERATES  IRE  CODE  FOR  SHORT,  SIMPLE  CALCULATOR  * 
i*  ARITHMETIC  FUNCTIONS  ("QUICK"  FUNCTIONS)  .  * 

f*--  -  ------ — -  -  ---- — - - - —  - - - * 


PROCEDURE  GENFNQ  (OPND  :  SLOTPTR); 

VAR  I  :  1..FNQLEN; 

BEGIN 

SCAN  (TCKNUM)  ; 

IF  TCKNUM  O  OFARENTOK  THEN  (*  '  (•  *) 

FERRCE 
ELSE 
EEGIN 

SCAN  (TOKNUM)  ; 

PEXFR: 

I  •  =  1  • 

WITH  C£ND3  DO 
REPEAT 

GENKEY  (FNQ  (.1.)  )  ; 

I  ;=  I  +  1 

UNTIL  (I  >=  FNQLEN)  OR  (FNQ(.I.)  =  K  NOP) 

END 

END;  (*  GENFNQ  *) 

|444  4*4  4**********  *********  **********  4*4*4***  444444*44444  *4) 


(*-27 - * 

(*  CHKFNLLIST  SEARCHES  THE  FNL  USE  LIST  TO  DETERMINE  IF  * 
(*  THE  FNL  HAS  EVER  EEEN  CALLED  BEFORE;  IF  NOT,  THEN  IT  * 
(*  MUST  EE  ADDED  TO  THE  USE  LIST.  * 
<* - - - - - * 


FROCEDURE  CHKFNLLIST  (VAR  IDSLOT  :  SLOTPTR)  ; 

VAR  LISTFTR,  HCLDPTR  :  SLOTPTR; 

USED  :  BOOLEAN; 


EEGIN 

LISTPTR  :=  FNLLIST:  (*  GET  THE  LONG  FN  LIST  *) 

IF  LISTFTR  <>  NIL  THEN  *  TRAVERSE  THE  FNLLIST  *) 

REPEAT 

USED  :=  (IDSLOT®. IDENT  =  L ISTP IR® . IDENT)  ; 

LISTPTR  :=  LISTFTR®.  FNLLINK; 

UNTIL  (USED)  OR  (LISTPTR  =  NIL): 

IF  LISTPTR  =  NIL  THEN  (*  IF  NOT  FOUND  ON  LIST.  THEN  *) 

EEGIN  (*  ADD  THIS  LONG  FUNCTION  TO  THE  FNLLIST  *) 

HCLDPTR  :=  FNLLIST; 

FNLLIST  :  =  IDSLOT; 

IDSLOT®.  FNLLINK  :=  HOLDPTR 
END 

END;  (*  CHKFNLLIST  *) 


(44444444444 44  ******* ******4*4*** ************4*************) 
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(*-2  8 - 

*  GENFNL  GENERATES  TEE  SBR  CALL 
I*  CALLS  CD  PROCEDURE  CHKFN  LLIST 

*  BEEN  USED  BEFORE. 

*  - 


A  FNL  BODY  AND  THEN 
SEE  IF  THE  FNL  HAS 


PROCEDURE  GENFNL  (VAR  IDSLOT  :  SLOTPTR) 
EEGIN 

SCAN  (TOKNUM)  : 

IF  TOKNUM  O  OPARENTOK  THEN 
PE&RCR 
ELSE 
EEGIN 

SCAN  (TOKNUM)  ; 

PF YPR  • 

GENKEi  (K  STO)  ; 

GENKEY  (FTJLREG)  ; 

GEKKEY  K  SBR); 

GENKEY  i  I'D SLOT 3. LBL)  ; 


(•  *) 


GENKEY 

CHKFNL 

END 


IDSLOT  a  .LBL)  ; 
ST  (IDSLOT) 


(*  GENFNL  *) 


i*  **************  *********  ******************  ********** **j 


•29 - 

NEWPARM  IS  CALLED  WHEN  A 
IS  ENCOUNTERED  IN  THE  WB 
NO  REGISTERS  HAVE  BEEN  D 
PARMS;  THIS  PROCEDURE  CR 
DESIGNATES  THE  RESPECTIV 
ENCOUNTERED  IN  THE  FN  CA 
IDENT  NAME  IS  NOT  YET  KN 
AFTER  THE  FN  DEFINITION 


FIRST  CALL  TO  A  P 
ASIC  SOURCE  FILE* 
ESIGNATED  FOR  THE 
EATES  THE  SYM  TBL 
E  REGISTER  FOR  THE 
LL;  NOTE  THAT  THE 
OWN  AND  WILL  BE  EN 
STATEMENT  IS  ENCOU 


ARAMETEE  FN 
AT  THIS  TIME 
FORMAL  FN 
ENTRY  AND 
NEW  FARM 
FORMAL  PARM 
TERED  ONLY 
NTERED  LATER 


FUNCTION  NEWPARM  :  SLOTPTR; 

VAR  PARMSLCT  :  SLOTPTR; 

EEGIN 

NEW  (PARMSLOT); 

WITH  r  f.  RMSLOT3  DO 
EEGIN 

TYP  :=  V  AR ID; 

REGNO  :=  NEWREG; 

WRITELN  (NAMEF  ,  •  '  :  5  r  R  EGNO:  5 , 1  ':5,'(FN  PARAMETER)'); 

SLOT  :=  NIL 
END; 

NEWPARM  ;=  PARMSLOT 

END;  (*  NEWPARM  *) 


^***  *****************************************************  **^ 
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(*-3  0 . - - - * 

(*  GENPARM  GENERATES  THE  FORMAL  PARAMETER  LIST  FOR  * 
(*  PARAMETER  FUNCTIONS:  IT  ALSO  GENERATES  THE  CODE  WHICH  * 
(*  WILL  EVALUATE  AN  ACTUAL  PARAMETER  AND  STORE  IT  IN  THE  * 
(*  FORMAL  PARAMETER  STORAGE  LOCATION  PRIOR  TO  FN  EXECUTE.  * 
* - * 


PROCEDURE  GENPARM  (VAR  IDSLOT  :  SLOT  PTR)  ; 

VAR  PARKPTR  :  SLOTPTR; 

EEGIN 

SCAN  (TOKNUM)  ; 

IF  TCKNUM  =  OPARENICK  THEN 
BEGIN 

PARMPTR  :=  IDSLCTa.FNP; 

IF  PARMPTR  =  NIL  THEN 
EEGIN 

EARMPTR  :=  NEWPARM; 

IDSLOT3.  FNP  :=  PARMPTR 
END; 

REPEAT 

SCAN  (TOKNUM)  ; 

PEXPR;  (*  STOP  AT  EACH  AND  LAST  •)'  *) 

GENKEY  (K  STC)  : 

GENKEY  (PlRMPTSa.  REGNO)  ; 

IE  TCKNUM  =  CCMMATOK  THEN 
BEGIN 

IF  PARMPTR3.  SLOT  =  NIL  THEN 
PA  RMP TEE. SLOT  :=  NEWPARM; 

PARMPTR  ;=  P  ARM  PTRa>.  SLOT  (*  NEXT  PARAMETER  *) 
END 

UNTIL  (TOKNUM  =  CP  ARSNTOK)  (*  PEXPR  WILL  FIND  •)'  *) 
OR  (TOKNUM  IN  T  RAILTOKS)  (*  OR  WILL  FIND  END  *) 

END 

END;  (*  GENPARM  *) 

(************************** ******************  ********** ** **) 

(*-31 - *) 

(*  GENFNF  GENERATES  CCDE  SEQUENCE  WHICH  CALLS  A  FARM  FNP.  *) 
(* - - - *) 

PROCEDURE  GENFNP  (VAR  IDSLOT  :  SLOTPTR)  ; 

EEGIN 

GENPARM  (IDSLOT)  ; 

GENKEY  (K  CPAREN)  ; 

GENKEY  (K~SBR)  ; 

GENKEY  (I'D SLOT®.  L 3L)  ; 

GENKEY  (K  CPAREN) 

END; 


(*  GENFNP  *) 


IC 

** 


INITI 

***** 


****************** 


****************** 


*  PUSHFN  PUSHES  A  FNP  SLOT  ONTO  THE  FNP  ACTIVATION  STACK  * 


PROCEDOHE  POSH F N  (VA5  FNSLOT  :  SLCTPTR)  ; 

EEGIN 

FNSLOT2.FNPLINK  :=  FNSTACK; 

FNSTACK  :=  FNSLOT: 

FNSTACKCT  :=  FNSTACKCT  +  1; 

IF  FNSTACKCT  >  FNST ACKLIM  THEN 
EEGIN 
PH  A  RN  ' 

WRITE’  (LISTF,  ******  SER  STACK  OVERFLOW. ..>  •); 
WRITELN  (LISTF,  FNSTACKLIH:  1,  •  RETURN  ADDRESSES.') 

END 

END;  (*  PUSHFN  *) 

/*************** ** ** **** ***  ****************** **** *  *#*******\ 


*  PCEFN  EC P S  A  FNP  SLOT  OFF  TO?  OF  FNP  ACTIVATION  STACK.  : 


PROCEEDRZ  PCPFN; 

VAR  HOLEPTR  :  S  LOT  PTE; 

BEGIN 

HOLEPTR  :=  FNSTACK: 

FNSTACK  :=  FNSTACKa.FNPLINK; 

HOLEPTE2.  FNPLINK  :*NIL; 

FNSTACKCT  :=  FNSTACKCT  -  1; 

IF  FNSTACKCT  <  0  THEN 
BEGIN 
PH  A  EN  * 

WRITE’  (LISTF,  ******  ATTEMPT  TO  POP  RETURN  ADDR  •); 
WRITELN  jLISTF,  'FROM  EMPTY  STACK.  ..  RES  ET  CT  =  O'); 
FNSTACKCT  :=  0 
END 

END;  (*  POP FN  *) 


(********************************************************  ** ) 


#  *  # 


(*-34 - 

(*  FILLP  ARMIES  READS  1H2  FORMAL  PARAMETER  IDENTIFIER 
(*  NAMES  IN  THE  FNP  DEF  STATEMENT  AND  FILLS  THE  IDENT 
(*  FIELD  CF  THE  RESPECTIVE  PARAMETER  SLOT  (ATTACHED  TO 
(*  RESPECTIVE  FNP  SLOT  IN  SYM  TBL)  . 

<* - - - - - - - 


PROCEDURE  FILLP  ARM  IDS  (VAR  FNSLOT  :  SLOTPTR)  ; 
VAR  FNP  ARM  :  SLCTPTR; 


EEGIN 

IF  FNSLCT2.FNP  =  NIL  THEN  (*  IN  CASE  FN?  HAS  NOT  *) 

FNSLCT3.  FNP  :=  NEWPARM;  (*  BEEN  CALLED  AT  ALL  *) 

FNPARM  :=  FNSLCTa).  FNP; 

SCAN  (TCKNUM)  ; 

IF  TCKNUM  O  IDENTCK  THEN 
P  ERROR 
ELSE 
EEGIN 

WHILE  TOKNUM  <>  CP  ARENTOK  DO 
EEGIN 

FNPARM3.  IDENT  :=  ACCUH; 

SCAN  (TOKNUM)  : 

IF  TOKNUM  =  COMMA  TOK  THEN 
BEGIN 

SCAN  (TCKNUM)  : 

IF  FNPARMa)  .SLOT  =  NIL  THEN  (*  FNP  HAS  NOT  *) 
FNSLCTa).  SLOT  :=  NEWPARM;  (*  BEEN  CALLED  *) 
FNPARM  :=  FNP  ARMS. SLOT 
END 

END; 

SCAN  (TOKNUM)  (*  SCAN  TOKEN  AFTER  •)'  *) 

END 

END;  (*  FILLPARMIES  *) 

(**************************  ********************************) 


(*-35 - *) 

(*  PFNEND  GENERATES  CODE  FOR  THE  END  OF  A  FUNCTION  BODY  ,  *) 

(*  DEFINITION;  IT  INCLUDES  THE  HOUSE- KEEPING  REQUIRED  TO  *) 
(*  RESET  THE  SCOPE  AND  VISIBILITY  OF  VARIAELE  NAMES  IN  *) 
(*  THE  SYMEOL  TABLE  THROUGH  THE  FN  ACTIVATION  STACK.  *) 

j*—  —  ———  ———————  —  ———  —  ———— —  —————  — — * ) 


PROCEDURE  PFNEND; 

EEGIN 

GENKEY  (K  RCL)  ; 

GENKEY  (FHSTACK3.  FNREGNO)  ; 

GENKEY  (K  INVSBR)  ; 

POPFN ; 

IF  NOT  (TCKNUM  IN  TEAILTOKS)  THEN  (*  GUARD  AGAINST  OVER  *) 
SCAN  (TCKNUM)  (*  SCANNING  END  LINE  IF  CALLED  BY  PDEF.  * 
END;  *  (*  PFNEND  *) 

(*********** ******* *  **** **  *  *********************  *********** ^ 
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(*-36 - *) 

(*  ?  E  EF  GIN  SKATES  THE  CODE  WHICH  DEFINES  THE  SCOPE  AND  * 
\*  VISIBILITY  FOR  VARIABLE  NAMES;  RESETS  THE  VALUE  OF  THE  * 
(*  REGISTER  IN  WHICH  THE  FUNCTION  VALUE  IS  RETURNED.  * 

<* . . . * . - . --*) 


PROCEDURE  PCEF ; 

VAR  FNSLC1  :  SLCTPTE; 

EEGIN 

SCAN  (TCKNUM)  ; 

IF  NOT  FN  CHK  (ACCUM)  THEN 
PERRCR  " 

ELSE 

BEGIN 

FNS1CT  ;=  IDLOCKUP  (ACCUM,  ACCINX)  ; 

GENKEY  (K  LBL); 

GENKEY  (FTJSLOTa.LBL)  ; 

GENKEY  (K  ZERO);  (*  MUST  ZERO  THE  VALUE  OF  THE  *) 

GENKEY  ( K*“STO)  :  *  REGISTER  IN  WHICH  THE  FN  *) 

GENKEY  (FUSLOTa.FN  REGNO)  ;  (*  VALUE  IS  RETURNED.  *) 

PU SHF N  (FNSLOT)  ; 

SCAN  (TOKNUM): 

IF  TCKNUM  =  OPARENTOK  THEN  (*  LOOKING  FOR  PAR  MS  *) 

FILLPARMIDS  (FNSLOT); 

IF  TCKNUM  =  EQUALTOK  THEN  (*  LOOK  FOR  ONE  LINE  FN  *) 
EEGIN 

SCAN  (TOKNUM); 

PEXP3 ; 

PFNEND  (*  GENERATE  THE  RETURN  FROM  ONE  LINE  FN  *) 
END; 

CLCSELINE 

END 


END; 


(*  PDEF  *) 


(*****************************  *******  ******************  ****) 


*-37 - - - * 

!*  GETFNIS  IS  CALLED  AFTER  ALL  OTHER  CODE  HAS  BEEN  * 


(*  GENERATED:  IT  GENERATES  THE  CODE  FOR  THE  BODIES  OF  ALL  *) 
(*  BUILT-IN  LONG  FUNCTIONS  WHICH  HAVE  BEEN  CALLED  AT  *' 

(*  LEAST  CNCE  AND  ARE,  THUS,  ON  THE  FNLLIST.  *) 

)* - * 


PROCEDURE  GETFNLS; 

VAR  LISTPTR  :  SLOTPT5; 
I  :  1..FNLLEN  +  1; 


BEGIN 

LISTPTR  :=  FNLLIST:  (*  GET  LONG  FN  LIST  *) 

WHILE  LISTPTR  <>  NIL  DO 

BEGIN  (*  INSERT  CODE  FOR  NEXT  LONG  FN  ON  FNLLIST  *) 

GENKEY  (K  L3L)  : 

GENKEY  (LISTPTR3.L3L)  ; 

X  J  —  1  • 

WHILE  ’(I  <=  FNLLEN)  AND 

(LISTPTR2.  FNL  (.  I.)  <>  K  NOP)  DO 
EEGIN 

GENKEY  (LISTPTR3.  FNL  (.  I.)  )  ; 

I  :=  I  +  1 
END  ; 

GENKEY  (K  INVSER): 

LISTPTR  :=  LISTPTR3.  FNLLINK  (*  NEXT  LONG  FN  ON  LIST  *) 
END 

(*  GETFNLS  *) 


END 


i  ********************************************  **********  **  #* 
*  * 

*  EXPRESSION  GENERATOR  ROUTINES  * 

*  * 

(***************************************  **  ***************** 
(*-38 - 

j*  GENID  GENERATES  CCCE  FOR  A  VARIABLE  OR  FUNCTION  I  DENT 

PROCEDURE  GENID; 

VAR  CP NC  :  SLOTPTR; 

BEGIN 

OP  N  C  :=  IDLOOKUP  (ACCUM,  ACCINX) ; 

CASE  0END2.TYP  OF 
VARIC  ;  EEGIN 

IF  OPND2. REGNO  =  -314  THEN  (*  REGNO  FOB  PI  *] 
GENKEY  (K  PI) 

ELSE 

EEGIN 

GENKEY  (K  RCL) 

GENKEY  (OPND3.  REGNO) 

END 

END: 

FNOID  :  GENFNQ  (CPND)  ; 


FNOID  :  GENFNQ  (CPND)  ; 

FNLID  :  GENFNL  (CPND)  ;  • 

FNPID  :  GENFNP  (CPND) 

END  (*  CASE  *) 

END; 


END;  (*  GENID  *) 

(**************************  ******************  ************  **  'j 


*  GENNUM  GENERATES  11-59  EQUIVALENT  CODE  FOR  A  LITERAL 

*  NUMERIC  (EOT  H  INTEGER  AND  REAL). 


PROCEDURE  GENNUM; 

VAR  I ,  DECFTLOC,  ESIGNLOC  :  INTEGER; 

BEGIN 

DECPTLOC  :=  LC CUNT  ♦  1; 

FOR  I  ;=  1  TO  LCOUNT  DO 

GENKEY  (TRANSDIGIT  (  ACC  U  M  (.  I.  ) )  )  ; 

IF  RCCUNT  >  0  THEN 
BEGIN 

GENKEY  (K  DECPT) ; 

FOR  I  :=  7DECPTL0C  ♦  1)  TO  (DECPTLOC 
GENKEY  (TR  AN  SEIGIT  ( ACCUM  (.  I .  )  )  ) 

END ; 

IF  ECCUNI  >  0  THEN 
EEGIN 

ESIGNLOC  ;=  LCCUNT  ♦  1  ♦  RCOUNT  *  2; 
IF  ACCUM  (.  DECPTLOC.)  <>  PERIOD  THEN 
ESIGNLOC  :=  ESIGNLOC  -  1; 


1)  TO  (DECPTLOC  ♦  RCOUNT)  DO 
(ACCUM  (.  I.  )  )  ) 


GENKEY  (K  EE)  ; 

IF  ACCUM  (TESIGNLOC 


GENKEY  (K  NEG): 

FOP  I  :=  (ESIGNLOC  ♦ 


)  =  THEN 


ESIGNLOC  +  1)  TO  (ESIGNLOC  ♦  ECOUNT)  DO 
GENKEY  (TRANSDIGIT  (ACCU M  (.  I.  )  )  ) 


END;  (*  GENNUM  *) 

(***************  *****************************  ************  **j 


(*-4  0 - 

PEXPR  PARSES  AND  GENERATES  CODE  FOR  EXPRESSIONS. 


MINCSTOK 

MULTCK 

DIVTOK 

EXPTOK 


r*  •  +  • 

[*  •  -  ' 
r*  •  * » 

1*  V 

>  *  •  **« 


PROCEDURE  PEXPR;  (*  FORWARD  DECLARATION  WITH 

(*  FUNCTION  CALL  ROUTINES 

BEGIN 

GENKEY  (K  OPAREN)  ; 

PPRIMARY ;~ 

WHILE  TCKNUM  IN  31 NCPTCKS  DO 
EEGIN 

CASE  TCKNUM  OF 

EIDSTOK  :  GENKEY  (K  ADDOP)  ;  (* 

MINCSTOK  :  GENKEY  (K“SUBCP);  (* 

MULTCK  :  GENKEY  (K"MULTOP);  (*  ' 

DIVTOK  :  GENKEY  (K"DIVO?)  ;  (*  •/' 

EXPTOK  :  GENKEY  iK"POWR)  (*  '  **' 

END;  (*  CASE  *) 

IF  NOT  (TCKNUM  IN  IPAILTOKS)  THEN  3EGIN 
SCAN  (TOKNUM)  ; 

PPRIMARY  END 

END; 

GENKEY  (K  CPAREN) 

END;  ~  (*  PEXPR 

(** ****** ** *** ************* ******************  ************* 
-41 - 

*  PPBIHAFY  PARSES  AND  GENERATES  CODE  FOR  A  PRIMARY  ITEM 

*  EXPECTED  AS  PART  CF  EXPRESSIONS. 


PROCEDURE  PPRIMARY;  (*  FORWARD  DECLARATION  WITH  *) 

(*  FUNCTION  CALL  ROUTINES  * 

5EGIN 

CASE  TCKNUM  OF 

PIUSTCK  :  EEGIN  (*  •  *) 

SCAN  (TOKNUM); 

PPRIMARY 

END: 

MINUSTCK  :  EEGIN  (*  • *) 

SCAN  (TOKNUM); 

PPRIMARY: 

GENKEY  (K  NSG) 

D  *  * 

OPARENTCK  :  BEGIN  (*  «  ('  *) 

SCAN  (TOKNUM); 
pp  ycb> 

SCAN  ’(TOKNUM) 

END; 

ICENTCK  :  EEGIN 

GEN  ID  * 

IF  (T6KNUM=IDENTOK)  OR  (TOKNUM=CPABENTOK) 
THEN  SCAN  (TOKNUM) 

END; 

NUMEERTCK  :  BEGIN 

GENNUM : 

SCAN  (TOKNUM) 

END 

END  <*  CASE  *) 

END;  (*  PPRIMARY  *) 

{***********  ************  *********************************  **\ 


*-42 - 

'*  PCCNDITICN  PARSES  AND  GENEF.AIES  CODE  FOR  BOOLEAN  EXPrS 
1  * - 


PROCEDURE  FCCNDITION ; 


VAR 


REICP 

INVERT 


TOKEN  R  NG; 
BOOLEAN; 


BEGIN 

INVERT  :=  FALSE; 
SCAN  (TCKNUM)  : 

IF  TOKNUM  =  NOTTOK 
BEGIN 

INVERT  :=  TRUE 
SCAN  (TOKNUM) 
END; 

PEXPR ; 

GENKEY  (K  X  T)  ; 

IF  INVERT"TffEN 
CASE  TOKNUM  OF 
EQUALTCK 
NCTECTOK 
GTTCK 

gtectck 

LTTCK 

ltectck 

END;  (*  C 
REICP  :=  TCK  N 
SCAN  (TCK  NUM) 
PEXPR; 


THEN 


(*  SCAN  FOR  "NOT"  *) 


TOKNUM 

;  = 

NOTEQTOK 

TOKNUM 

•  = 

EQUALTOK 

TOKNUM 

;  = 

ITECTOK; 

TOKNUM 

•  = 

LTTOK ; 

TOKNUM 

j  s 

GTEQTOK; 

TOKNUM 
SE  *) 

M; 

GTTOK ; 

(*  BEGIN  NEXT  EX  PR  *) 


CASE  RELOP 

OF 

ECUAITOK 

• 

• 

BEGIN 

GENKEY 

GENKEY 

END; 

NCTECTOK 

• 

• 

GENKEY  (! 

GTTCK 

• 

• 

GENKEY  ( 

GTEQTCK 

• 

• 

BEGIN 

GENKEY 

GENKEY 

GENKEY 

ltectck 

• 

END; 

BEGIN 

GENTRY 

GENKEY 

LTTCK 

« 

• 

END: 

BEGIN 

GENKEY 

GENKEY 

(K  INV)  ; 
(K“I?XEQT) 


’IFXGET 


U 


K_X  T  ; 

K  ITJV )  : 
K“I?XGET) 


(K  INV); 
(K“IFX  GET) 


END 
END  ; 


END 

(*  CASE  *) 


(K_X  T)  ; 
(K_I?XGET) 
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(*  PCON DITICN  *) 


*  w  * 


(***************  ***********  ******************  ************** 
(*  * 

(*  LOOPING  ROUTINES  *' 

\*  * 

(***********  *********************************************  4=*' 


*-43 - 

*  P USHCCEE  PUSHES  TEE  ROOD 

*  STACK  EESIGN  ATED  EY  STAC 


E  DATA  NODE  ONTO  THE  LCOP/Ir  *j 
K.  * 

- * 


PROCEDURE  FDSHCOCE  (RCODE  :  CODEPTR;  VAR  STACK  :  CODEPTP)  ; 


BEGIN 

RCODEa) .  SEQP  :*  STACK; 
STACK  :=  FCODE 
END; 

(**  ****  **  ******  *********  *** 


(*  PUSHCODZ  *) 

****************** ************ **) 


j*  POPCOEE  PCPS  AND  RETURNS 
*  OF  THE  LCCP/IF  STACK  DES 


THE  CODE  DATA  NODE  CN  THE  TCP  * 
IGNATED.  * 


FUNCTICN  PC  FCODE  (VAR  STACK  :  CODEPTR)  :  CODEPTR; 
BEGIN 

IF  STACK  =  NIL  THEN 
BEGIN 

WRITE  (LISTF,  '**♦**  INCORRECT  NESTING  OF 
WRITEIN  (LISTF  ,  '  STATEMENTS  (IF,  FOR,  CR  Li 
PEREOE; 


*  INCORRECT  NESTING  OF  CONTROL  ')  ; 
TEMENTS  (IF,  FOR,  CR  LOOP).'); 


rtiouo, 

POFCODE  :=  NIL 
‘i  END 

ELSE 
EEGIN 

POPCOEE  ;=  STACK: 
STACK  :=  STACKS. SEQP 
END 

END; 

<**************  ************ 


(*  POPCOEE  *) 

******************************  ** j 


SETFWEJMP  IS  USED  TO  SET 
THE  CURRENT  CODE  DATA  NO 
CODE  DATA  NODE  ON  THE  DE 
POTENTIAL  A3S0LUTE  ADDRE 
ASSUMPTION  THAT  THE  CODE 
WHICH  THE  FIRST  ADDRESS 
LATER  EE  POPPED  AND  INSE 
AFERCFFIATE  POSITION. 


- — - - - —  -* 

THE  JUMP  POINTER  (JMPP)  OF  * 

DE  POINTING  TO  THE  MOST  RECENT  * 
SIGNATED  LOOP/IF  STACK;  THE  *' 

SS  SPACE  IS  GENERATED  WITH  THE  * 
DATA  NODE  IN  THE  STACK  TO  * 

SPACE  NODE  IS  POINTING  WILL  * 

STED  INTO  THE  CODE  AT  THE  * 

* 


PROCEDURE  SETFWDJMP  (STACK  .*  CODEPTR)  ; 


EEGIN 

CPCURd).  JMFP 
ST  ACKa) .  ADDR 
GENKEY  (-2); 
GENKEY  (-2) 
END; 


=  STACK; 

=  0; 


(************************** 


SET  JMPP  TO  NODE  JUST  PUSHED  *) 
MARK  THE  TERMINAL  NODE  OF  JUMP  * 
GEN  SPACE  FOR  ABSOLUTE  ADDRESS  *) 

(*  SETFWDJMP  *) 

!  **********************  **********  ) 
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(*-46 - *) 

(*  SETEAKJUMP  IS  SIMILAR  TO  SETFWDJM?  EXCEPT  IN  THIS  CASE  *) 
(*  TEE  FIRST  NODE  OF  A  POTENTIAL  ADDRESS  SPACE  PAIR  IS  * 
(*  POSHED  ONTO  THE  DESIGNATED  LOOP/IF  STACK  AFTER  ITS  * 
(*  JHFP  HAS  BEEN  SET  TO  A  CCDE  DATA  NODE  INSERTED  AS  AN  *) 


(*  ANCHOR  FCR  THIS  BACK  JUMP;  THE  POTENTIAL  ADDRESS  SPACE  *'i 
(*  NODE  WILL  LATER  BE  POPPED  AND  INSERTED  (ALONG  WITH  IIS  *) 
(*  THE  INSERTION  OF  ANOTHER  NODE  TO  COMPOSE  AN  AD  DR  PAIR)  *) 
(* - *) 

PROCEDORE  SETBAKJMP  (VAR  STACK  :  C0DEPT3)  ; 

VAR  JCOEE  :  CODEPTR; 

EEGIN 

JCCEE  :=  NEWCODE  (-2); 

JCODEaJ.JMPP  :=  CPCUR; 

CPCUSa).  ADER  :=  0; 

GENRE Y  (K  NO?)  ; 

PUS HCCEE  IJCODE,  STACK) 

END;  (*  SETBAKJMP  *) 


j********** ********************************** **** * *  * ** ***  **  j 
#*-47 - *) 

i*  PLCOP  GENERATES  CCDE  FOR  THE  LOOP  COMMAND;  *) 
(*  IT  SETS  UP  THE  START  OF  A  LOOP  CONSTRUCT  3Y  GENERATING  * 
i*  AN  ANCHOR  NODE  FOR  THE  BACK  JUMP  IN  THE  LOOP.  * 
/* - *\ 


PROCEDURE  PLOOP; 


BEGIN 

SETEAKJKP  (LOOPSTACK): 

PUSHCOEE  (NEWCODE  (R  NOP)  ,  ENDLOOPST ACK)  ; 

SCAN  (TCKNUM)  ; 

CLOSELINE 

END;  (*  PLOCP  *) 

(** ************  *** *********  ******************  ** ** ********** ^ 

S*-4  8 - *) 

*  PWHILE  GENERATES  CCDE  FOR  THE  WHILE  COMMAND;  * 

*  IT  IS  SIMILAR  TO  PIOOP  EXCEPT  IT  INSERTS  CODE  TO  *) 

*  EVALUATE  A  BOOLEAN  EXPRESSION  (CONDITION).  *) 

<* - - - - * 


PROCEDURE  PWHILE; 

BEGIN 

SEIEAKJMP  (LOOPSTACK)  ; 

PCCNDITICN ; 

PUSHCOEE  (NEWCODE  (K  NOP)  ,  ENDLOOPSTACK)  ; 

SETFWEJKP  (END LOOP  STUCK) 

END;  (*  PWHILE  *) 

( ***********************  *************************  ********  **  j 
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-4  9 - * 

*  PENDLCCE  FOPS  AND  INS  SR  T  S  CODE  WHICH  HAD  BEEN  STACKED 

*  EARLIER  AS  A  RESULT  OF  THE  START  OF  A  LOOP  CONSTRUCT. 


- - - -* 


PROCEDURE  P  ENDLOCP ; 

VAR  JCODE  :  CODEPTR  ; 

BEGIN 

IF  1CKNUM  =  ENDLOOETOK  THEN 
GENKEY  (K  GTO)  ; 

JCODE  :=  FO?CODE  (ICOPSTACK)  ; 

PUTKEY  (JCODE)  ; 

GENKEY  (-2); 

JCCCE  :=  PCPCOCE  (ENDLOOPSTACK) ; 

PUTKEY  (JCODE)  ; 

CLCSELINE 

END;  (*  PENDLOCP  *) 

(********************************************  ****  *  **  ******* ) 


*  PUNTIL  GENERATES  CCCE  TO  EVALUATE  A  BOOLEAN  EXPRESSION  * 

*  AND  CALLS  PENDLOOP  TO  CLCSE  OUT  THE  LOOP.  * 


PROCEDURE  PUNTIL; 

BEGIN 

PCC  NDITION ; 

PENDLOCP 

END;  (*  PUNTIL  *) 

(**  ******4***********************************$*** *4*4*44*  **) 


*  PNEXT  GENERATES  CCDE  FOR  THE  NEXT  COMMAND. 

<*  THIS  ROUTINE  IS  WEAK  IN  SYNTAX  ERROR  CHECKING 


PROCEDURE  PNEXT; 

VAR  IS ICT  :  SLOTPTR; 

JCCCE  :  CODEPTR; 

BEGIN 

SCAN  (TCKNUM)  ; 

IS  LOT  :=  IDLOOKUP  (ACCUM,  ACCINX)  ; 

IF  ISLCIa).  AUXREG2  =  -1  THEN 
GENKEY  (K  1) 

ELSE 

EEGIN 

GENKEY  (K  RCL)  ; 

GENKEY  (I5LOT5  .  AUXRSG  2) 

END; 

GENKEY  (K  SUM)  ; 

GENKEY  (I'SLOT  al.REGNC)  ; 

GENKEY  (K  GTO)  ; 

JCODE  ;=  rCPCODE  (FORSTACK);. 

PUTKEY  (JCODE)  ; 

GENKEY  (-2); 

JCODE  :=  POPCODE  (NEXTSTACK)  ; 

PUTKEY  (JCODE)  ; 

CLCSELINE 

END;  (*  PNEXT  *) 

(4**444*44** ******  *********  4**4*44*4***4****4 ********** *4  **) 


PFOR  GENERATES  CODE  FOR  THE  FCH  COMMAND.  THIS  SOUTINE  * 
(AND  THE  PNEXT  ROUTINE)  IS  WEAK  IN  SYNTAX  ERROR  CHECK-  * 
ING.  THERE  ARE  MANY  PLACES  WHERE  SIMPLE  CHECKS  FOP.  * 
CORRECT  SYNTAX  COOLD  HAVE  BEEN  PERFORMED  BUT  WERE  NOT  * 
BECAUSE  CF  COMPLEXITY  SUCH  CHECKS  WOULD  HAVE  INDUCED.  * 


PFOR  GENERATES  CODE  FOR 
(AND  THE  PNEXT  ROUTINE! 
ING.  THERE  ARE  MANY  Pti 


EROCECUHE  EFCR; 


VAR  ISICT  :  SLOTPTR; 


EEGIN 

SCAN  (TCKNUM)  : 

ISLCT  :=  IDLOOKUP  (ACCUM,  ACCINX)  ; 
ISLCTa).  AUXREG1  :=  NEWREG; 

SCAN  (TCKNUM)  ; 

SCAN  (TCKNUM)  ; 

PEXER; 

GENKEY  (K  STO)  ; 

GENKEY  (ISLOTS.RESNC)  ; 

SCAN  (TCKNUM)  ; 

PEXER; 

GENKEY  (K  STO)  ; 

GENKEY  (I5L0T3.AUXREG1)  ; 

IF  TCKNUM  =  STSPTOK  THEN 
BEGIN 

SCAN  (TOKNUM)  ; 

PFXPR  • 

GENKEY  (K  STO); 

ISLCTa. AUTHEG2  ;=  NEWREG; 

GENKEY  (IS  LOTa) .  AUXREG  2) 

END; 

P USKCODE  (NEWCODE  (-2),  FCRSTACK)  ; 
FORSTACKa. JMPP  :»  CPCUR; 

GENKEY  (K  HCL)  ; 

GENKEY  (ISL0T3. REGNO)  ; 

GENKEY  (K  XT); 

GENKEY  (K“BCL); 

GENKEY  (I'SLO Ta) .  AU X HEG1 )  ; 

GENKEY  (K  INV)  ; 

GENKEY  (K”IFXGET)  ; 

PUSHCCDE  “?  NEW  CODE  (K  NOP)  ,  NEXTSTACK)  ; 
CPCURa.JMtP  ;=  NEXTSTACK; 

GENKEY  (-2); 

GENKEY  (-2); 

CLCSELINE 

END; 


(*  PFOR  *) 


I***********  ***********************************************) 

♦  *) 

*  Ir-ERANCHING  ROUTINES  *) 

*  *) 

^***********  ************ ***  ******************** ************) 


*-53- 


*  QUITEREOF  IS  CALLED  WHENEVER  A  QUIT  STATEMENT  IS 

*  ENCOUNTERED  WHILE  NOT  WITHIN  THE  SCOPS  OF  A  LOOP. 


PROCEDURE  QUIT  ERROR ; 


EEGIN 

WRITE  (LIS  IF ,  •****♦  ATTEMPT  TO  ''QUIT''  WHILE  NOT  •); 

WRITELN  (LIST  F,  'INSIDE  A  LOOP.'); 

PEREOR 
END; 


END;  (*  QUITERRCR  *) 

(*** *****************************************  **** ********** j 

-54 . . . 

*  FQUIT  GENERATES  POTENTIAL  ADDRESS  SPACE  WHOSE  JMPP  * 

*  POINIS  TO  THE  MOST  CURRENT  CODS  NODE  ON  THE  ENDLOOP  * 

(*  STACK;  THUS,  CONTECL  WILL  LEAVE  THE  MOST  CURRENTLY  * 

*  EXECUTING  LOOP  DURING  TI-59  EXECUTION.  NOTE  THAT  THIS  * 

*  IMPLEMENTATION  WILL  NOT  ALLOW  LINE#  TO  FOLLOW  'QUIT'  * 


PROCEDURE  PQUIT; 

EEGIN 

IF  ENDLCOP  ST  AC  K  =  NIL  THEN 
QUITERRCR 
ELSE 
EEGIN 

GENKEY  (K  GTO) ; 

SETEWEJMP"  (END  LOOP  STACK)  ; 

SCAN  (TOKNUM)  ; 

IF  TCKNUM  =  NUMEERTOK  THEN 
EEGIN 

PSU3ERR0R  ; 

WRITE  (LISTS,  ******  "QUIT"  DOES  NOT  ACCEPT  '); 
WRITELN  ( LISTF ,  'LINE  NUMBERS  THIS  IMPLEMENT.'); 
END 
ELSE 

CLCSELINE 

END 

END;  (*  PQUIT  *) 

{********************************************  **********  *♦ ** ) 


(*-56-*) 

PROCEDUR 


ROCEDURE  PT  HEN  LINE; 


FORWARD; 


(******************  ********  ******************  **  **  ********  **  ) 


*  PT  KENELS  E  DETERMINES  WHETHER  THE  ELSE  BRANCH  OF  AN  * 

*  IF-THEN-ELS2  IS  LINE-ORIENTED  (LINE#)  OR  LOOP-ORIENTED  * 

*  (’QUIT*)  ;  APPROPRIATE  ROUTINE  IS  CALLED  TO  SET  JUMP.  * 


PROCEDURE  PTHENSLSE; 

EEGIN 

SCAN  (1CKNUM)  ; 

IF  TCKNUM  =  NUMBERTOK  THEN 
BEGIN 

GENKEY  (K  GTO) ; 

PTEENIINE” 

END 

ELSE  IF  TCKNUM  =  QUITTOK  THEN 
ECUIT 
ELSE 
EEGIN 

WRITE  ( LISTF  ,  '****♦  "IF -THEN-ELS  E"  LIMITED  TO  ’)  ; 
W3ITELN  (LISTF,  "'QUIT"  OR  LINE  NUMBERS.'); 

PERROR 

END 

END;  (*  PT HENELSE  *) 

{**********  ********  ********  **********  *****************  ***  **) 


5  w 

*  PTBENIINE  SETS  THE  LI NE- ORI ENTED  JUMPS  FOR  THE  IF-THEN  * 

*  OR  IF-THEN-EL  SE  STATEMENTS.  * 


PROCEDURE  P  THEN  LINE; 

BEGIN 

SET JMPEXT  (XNUMBER  (ACCUM,  ACCINX)  )  ; 
GENKEY  (-2); 

GENKEY  -2  ; 


GENKEY  (-2); 

GENKEY  (-2  ; 

SCAN  (TCKNUM)  : 

IF  TOKNUM  =  ELSETOK  THEN 


PTHENELSE 

ELSE 

CLOSELINE 

END;  (*  PT  HENLINE  *) 

(***********  *******  *****  ***  ******************  ************  **| 


-57 - 

*  PTHENCUIT  SETS  THE  LOOP-ORIENTED  JUMPS  FOR  IF-THEN  OR 

*  IF-THEN-ELSE  STATEMENTS. 


PROCEDURE  PTHENQUIT; 

BEGIN 

IF  ENDLCCFST  ACK  =  NIL  THEN 
Q  UITEFRCR 
ELSE 
BEGIN 

SETFWEJMP  (ENDLCOPSTACK)  ; 

SCAN  (IOKNUM)  ; 

IF  TOKNUM  =  ELSETOK  THEN 
ETHZNELS  E 
ELSE 

CLOSELINE 

END 

END;  (*  PTHENCUIT  *) 

(*********** ******** *******  ******************  *********  ***  **| 


(*-58 - *) 

(*  PIF  DETERMINES  THE  TYPE  CF  *IF'  STATEMENT;  IT  WILL  * 
(*  CALL  THE  REQUIRED  SET  ROUTINES  FOR  UNSTRUCTURED  JUMPS  * 
(*  (LINZ  CE  LOOP  ORIENTED)  OR  PERFORM  THE  SET  UP  ITSELF  * 
(*  FOR  STRUCTURED  JUKES.  *) 
(* . . . . . . . *) 


EROCEDURE  PIF; 

BEGIN 

PCONDITICN ; 

IF  TOOOM  =  THENTOK  THEN 
BEGIN 

SCAN  {TOKNUM): 

IF  TCKNUM  =  NOMEERTOK  THEN 
FTHENLINE 

ELSE  IF  TOKNUM  =  QUITTOK  THEN 
ETHENQUIT 
ELSE 
EERRGR 

END 

ELSE 

EEGIN 

PUSHCCDE  (NEWCCDE  (K  NOE),  ENDIFSTACK); 

CPCUR2.3AKF  :=  ENDIFSTACK; 

END  IF  STACK  2.  BAKE  :  =  CECUR; 

PUSHCCDE  (NEWCODE  (K  NOP),  IFSTACK)  ; 

SETFWEJMP  (IFSTACK)  ;“ 

CLCSELINE 

END 

END;  (*  PIF  *) 


(**************************  ********************************) 


!$_  5  g__  __  _____  _____  _____  ___ 

*  ELSE  AEJEST  PERFORMS  HOUSE-KEEPING  ON  THE  VARIOUS  'IF*  *) 
*  STACKS  DEPENDENT  UPON  THE  FORM  OF  THE  STRUCTURED  'IF'  *5 
*  STATEMENT  ENCOUNTERED;  I  F- ENDIF  REQUIRES  A  DIFFERENT  *; 
(*  SEQUENCE  OF  PUSH/EOP  STACK  THAN  DOES  IF -ELSE- END  IF  OR  *i 
(*  IF-ELSEI  F-ELS  E-  EN  EIF.  * 

(* - * 


PROCEDURE  E I SE_ ADJUST  ; 

EEGIN 

WITH  ENDIFSTACK3  DC 
EEGIN 

IF  EAK?  <>  NIL  THEN 
EEGIN 

BAKP3.BAKP  :=  NIL; 

EAKP3.JMPPa.EAKP  ;=  NIL; 

BAKP  :=  NIL 
END 

END 

END;  (*  ELSE_ ADJU ST  *) 

(*********** ************  **********♦************************) 
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(*-60 - *) 

(*  PELSEIF  FER  FORMS  A  SEQUENCE  OF  STACK  MANIPULATIONS  IN  *) 
<*  ORDER  TO  GENERATE  THE  ADDRESS  SPACES  AND  JUMPS  WHICH  *) 
j*  IMPLEMENT  THE  ELSEIF  CONSTRUCT.  *J 

PROCEDURE  PELSEIF; 

VAR  JCCEE  :  CODEPTR; 

BEGIN 

ELSE  ADJUST; 

GEN  KEY  (K  GTO)  ; 

SETFWDJMP”  (ENDIFST  ACK); 

JCODE  ;=  POPCODE  (IFSTACK); 

PUTKEY  (JCODE)  ; 

PCCNDITICN; 

PUSHCODE  (NEW CODE  (K  NOP)  ,  IFSTACK)  ; 

SETFWDJMP  (IFSTACK) 

CLOSELINE 

END;  (*  PELSEIF  *) 

f**  ***************  ********  *****************************  ****■) 


(*-61 - *) 

i*  PELSE  IS  SIMILAR  TO  ELSEIF  EXCEPT  IT  DOES  NOT  PARSE/ 

(*  GENERATE  CODE  TO  EVALUATE  A  EOOLEAN  EXPRESSION.  * 

* - * 


PROCEDURE  PELSE; 

VAR  JCODE  :  CODEPTR; 

BEGIN 

ELSE  ADJUST; 

GENKEY  (K  GTO)  ; 

S2TFUDJEF"  (ENDIFST ACK)  ; 

JCODE  ;=  POPCODE  (IFSTACK); 

PUTKEY  (JCODE)  ; 

SCAN  (TCKNUM)  ; 

CLOSELINE 

END;  (*  PELSE  *) 

^* **********  ******** **** ***  **********  ********  ****  ********  **  j 
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<*-62 - 

(*  PENDIF  CLOSES  UP  THE  SCOPE  OF  A  STRUCTURED  'IF' 

(*  CONSTRUCT  BY  POPPING  THE  APPROPRIATE  STACKS  AND 
(*  INSERTING  AND  DISCARDING  CODE  WHICH  HAD  BEEN  STACKED; 
(*  DISCAREING/IN  SERTING  IS  DEPENDENT  UPON  THE  PARTICULAR 
\*  TYPE  OF  'IF*  CONSTRUCT  ( IF-  END  IF  OR  IF-ELSE-ENDIF)  . 


PROCEDURE  PENDIF; 

VAR  CUMPC,  JCODE  :  CODEPTR 
BEGIN 

WITH  ENEIFSTACK3  DO 
BEGIN 

I?  EAKP  <>  NIL  THEN 
EEGIN  ( 

EAKP3.EAKP  :=  NIL 
BAK?  ;  =  NIL: 

DUMPC  :=  PCPCODE 
DUMPC3.ADDR  :  =  -1 
J  CODE  :=  PCPCODE 
PUTKEY  (JCOCE) 

END 

ELSE 

EEGIN 

JCODE  :=  PCPCODE 
JCODE 3 . ADD R  :=  0; 
PUTKEY  (JCOCE) 

END 

END; 

SCAN  (TCKNUM)  ; 

CLCSELINE 

END; 


*  NC  ELSE/ELSEIF  HAS  BEEN  SEEN  * 
;  (*  NULLIFY  POINTERS  * 


(ENDIFSTACK)  ; 
(IFSTACK)  ; 


(*  CLEAR  STACK  *) 
(*  INSERT  ENDIF  *) 


(*  ELSE/ELSEIF  HAS  BEEN  SEEN  *) 

(ENDIFSTACK)  :  (*  INSERT  ENDIF  *) 

(*  MARK  TERMINAL  NODE  OF  JUMP  *' 
(*  ELSE  ADJUST  HAS  ALREADY  *’ 
(*  CLEARED  ENDIFSTACK.  *' 


(*  PENDIF  *) 


******************************************  **  *#** ********** 
*  * 

*  I/C  COMMAND  ROUTINES  * 

*  * 
********************************************************** 


1 


(*-84-*) 

PROCEDURE  WRITLN  (VAR  WFILE  ,  MSG  FILE  :  TEXT; 

MS  G_N  0  :  INTEGER)  ;  FOR  SARD; 

(************* ************ *******************  ************  **) 


*-63 - - - * 

*  PDATA  GENERATES  SINGLE  NCP  TO  PROTECT  FROM  LINE-  * 

ORIENTED  JUMP  REFERENCES;  THIS  COMMAND  IS  INTENDED  FOR  * 

* 


waiLLULU  uu  ur  i-t  x.  i.  iuj  ^  ^  -  j  a  a.  ux  un  itu  x  iiu  wii  l/lu 

USE  AT  THE  START  CF  A  PROGRAM  SINCE  ITS  USE  WITHIN 
LOOPS,  SER'S,  OR  FUNCTIONS  WOULD  RENDER  THE  DATA  TO 
READ  MAPPING  MEANINGLESS.  THIS  ROUTINE  READS  THE  DATA 
VALUES  FOUND  AS  ITS  PARAMETERS,  COUNTS  THEM,  AND 
STORES  THEM  IN  AN  ARRAY  OF  RECORDS  WHICH  IS  ACCESSED 
BY  SUBSEQUENT  READ  COMMANDS. 


PROCEEURE  PEATA; 

VAR  EATASIGN  :  CHAR; 

BEGIN 

GENKEY  (K  NOP)  ; 

SCAN  (TCOUM)  ; 

WHILE  ^TOKNUM  IN  SIGNTOKS)  OR  (TOKNUM  =  NUMEERTOK)  DO 

EATASIGN  ;=  BLANK; 

IF  TOKNUM  IN  SIGNTOKS  THEN 
EEGIN 

IF  TOKNUM  *  MINUSTOK  THEN 
DATASIGN  :=  ; 

SCAN  (TOKNUM) 

END: 

IF  EATAIX  =  REGEASE  +  1  THEN 
EEGIN 
P  WARN  ; 

WRITE  (LISTF,' *****  EXCEEDED  DATASTORE  '); 

WRITE  (LISTF, 'CAP  =  ',  REGBASE  :  1)  ; 

WRITELN  (LISTF,  '...RESET  DATA  INDEX  TO  1.'); 
CATAIX  :=  1 

END: 

DATALIST  (.  DAT  A  IX.)  .NUMB  :=  ACCUM; 

DATALIST  (.  DAT  A I X.)  .SIGN  :=  DATASIGN; 

DATAIX  :=  DAT  A IX  ♦  1; 

SCAN  (TOKNUM)  ; 

IF  TOKNUM  =  COMMATOK  THEN 
SCAN  (TOKNUM) 

END; 

CLCSELINE 

END;  (*  PDATA  *) 

(** ****** ****** ************  **************************** ****) 
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(*-64 - *) 

(*  PREAD  ONLY  GENERATES  A  NCP  INSTRUCTION  TO  ALLOW  FOR  *) 
|*  LINE-CEIENTED  JUMP  REFERENCES;  OTHERWISE,  THIS  COMMAND  * 
(*  WRITES  THE  READF  FILE  WHICH  INDICATES  DATA  VALUES  FOF  *' 
(*  RESPECTIVE  REGISTERS  AND  THEIR  WBASIC  VARIABLE  NAMES;  * 
i*  THE  READF  FILE  IS  USED  TO  INPUT  DATA  PRIOR  TO  PROGRAM  * 
:*  EXECUTION  ON  THE  11-59.  THUS,  SAVING  PROGRAM  STEPS.  *) 

!*  THE  CONSTRUCT  IS  INTENDED  FOR  USE  AT  THE  START  OF  A  * 

*  PROGRAM.  IF  NESTED  WITHIN  THE  PROGRAM,  LOOPS,  SBR'S,  * 
*  AND  FN  *  S  WOULD  RENDER  THE  DATA/READ  MAP  MEANINGLESS.  * 
* - * 

PROCEDURE  PREAD; 

VAR  IDSICT  :  SLCTPTR; 

BEGIN 

GENKEY  (K  NOP)  ; 

IF  FIRSTRiAD  THEN 
BEGIN 

REWRITE  (READF,  • NAME=READF. WBASIC. A ') ; 

WRITLN  (READF,  MSG  F,  9); 

FIESTEEAD  :=  FALSE 
.  END; 

IF  NOT  INDEXERROR  THEN 
BEGIN 

SCAN  (TOKNUM); 

WRITELN  (READF); 

WHILE  TOKNUM  =  IDENTOK  DO 
BEGIN 

IDSLOT  :=  IDLOOKU P  (ACCUM,  ACCINX)  ; 

WITH  IDSLOT3  DO 
BEGIN 

IF  READIX  >=  DATAIX  THEN 
BEGIN 
PWARN" 

WRITE'  (LISTF,  ******  READ  PAST  DATA  *); 
WRITE  (LISTF,  *  I N DEX ... IGNORING  •); 
WRITELN  i LISTF,  *  SUBSEQUENT  RE AD/DATA . 1 )  ; 
WRITELN  (READF)  ; 

WR HE  (READF,  ******  READ  PAST  DATA  *); 

WRITE  (READF,  *  INDEX.  ..  SUBSEQ  UENT  '); 
WRITELN  i  READF,  • RE AD/DATA  IGNORED.'); 
INDEXERROR  :=  TRUE; 

PRECOVER 

END 

ELSE 

BEGIN 

WRITE  (READF,  »  »  :5); 

WRITE  (READF,  DAT ALIST  (. READIX. ). S IGN) ; 
WRITE  (READF,  DATALIST  (.  READIX.  .  NUMB)  ; 
WRITE  (READF,  •  » : 2)  ; 

ZEECPAD  (READF,  REGNO,  2); 

WRITELN  (READF,  '  ':3,  IDENT); 

READIX  :=  READIX  ♦  1; 

SCAN  (TOKNUM): 

IF  TOKNUM  =  COMMA TO K  THEN 
SCAN  (TCKNUM) 

END 

END 

END 

END 

ELSE 

PRECCVER; 

CLCSELINE 

END;  (*  PREAD  *) 

{*##*4**4444*******  *****  ***  **##**#*#**#***♦**  **  ##  ********  **) 
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(*-65 - * - *) 

(*  P RES1CRE  GENERATES  A  SINGLE  NOP  TO  PROTECT  FROM  LINE-  *) 

(*  ORIENTED  JUMP  REFERENCES.  IN  THIS  IMPLEMENTATION,  * 

i*  THIS  CONSTRUCT  IS  NOT  OF  GREAT  VALUE  SINCE  DATA/RrAD  *) 

i*  STATEMENTS  ARE  SUGGESTED  FOR  USE  AT  THE  START  OF  A  *) 

i*  PROGRAM  ONLY;  THIS  ROUTINE  RESETS  THE  READ  INDEX  TO  * 
i*  ITS  INITIAL  VALUE  (=1).  *) 

,  *  — — — - — - —  - - — - *  j 

PROCEDURE  PRESTORE; 

BEGIN 

GENKEY  (K  NOP)  ; 

READIX  ;="  1; 

SCAN  (TCK SUM)  ; 

CLCSELINE 

END;  (*  PRESTORE  *) 

^** ************  ************  **********************  **********) 

!*-66 - * 

*  PINPUT  PARSES  A  LIMITED  FORM  OF  THE  WBASIC  "INPUT”  * 

*  STATEMENT;  THE  LIST  OF  INPUT  PARAMETERS  MAY  CONSIST  OF  * 
*  VABIAELE  NAMES  ONLY.  * 

(* - - - *) 

PROCEDURE  PINPUT; 

VAR  TENDIG  :  -1..9; 

INPVAR  ;  SLCTPTB; 

EEGIN 

SCAN  (TOKNUM)  ; 

GENKEY  (K  CE)  ; 

TENDIG  s*“-1;  (*  FLAG  CHECKS  IF  INPUT  VARS  ARE  LISTED  *) 

WHILE  TCKNUM  =  IDENTCK  DO 
BEGIN 

INPVAR  :=  IDLOCKUP  (ACCUM,  ACCINX)  ; 

TENDIG  :=  INPVAR3.  REGNO  DIV  10; 

GENKEY  (TENDIG);  (*  REG  IN  WHICH  INPUT  TO  BE  STORED  *) 
GEKKEY  (INFVAR3. REGNO  -  (TENDIG  *  10)); 

GENKEY  (K  INT)  ;  (*  CLOSES  DISPLAY  REG  *) 

GENKEY  (K~RS)  ; 

GEKKEY  (K"”STO)  ; 

GEKKEY  (iUPVARtt. REGNO)  ; 

SCAN  (TOKNUM)  ; 

IF  TOKNUM  =  COMMATOK  THEN  (*  PARAMETERS  SEPARATED  *) 

SCAN  (TOKNUM)  (*  BY  COMMAS  OR  BLANKS.  *) 

END; 

IF  TENDIG  =  -1  THEN  (*  GENERATES  A  R/S  IF  "INPUT"  *) 

GENKEY  (K  RS);  (*  IS  USED  WITHOUT  A  VAR  LIST  *) 

CLOSELINE  “ 

END;  (*  PINPUT  *) 

^** ****************************************************** **^ 
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*-67 - 

*  PPEINI  PARSES  A  LIMITED  FORM  OF  THE  WBASIC  "PRIST" 

*  STATEMENT;  IT  ALLOWS  EXPRESSIONS,  VARIABLE  NAMES,  AND 

*  LITERAL  NUMERICS  IN  THE  LIST  OF  PARAMETERS. 

*  - 

PROCEDURE  P PRINT  ; 

BEGIN 

SCAN  (TCKNUM): 

WHILE  TCKNUM  IN  BEGIN  EXPRTOKS  DO 
BEGIN 
PEXPR : 

IF  PC100  THEN 
GENKEY  (K  PRT) 

ELSE  “  V 

EEGIN 

GENKEY  (K  PAUSE); 

GENKEY  K~ES) 

END; 

IF  TOKNUM  =  COMMATOK  THEN  (*  CAN  SEPARATE  ITEMS  BY 
SCAN  (TOKNUM)  (*  COMMAS  OR  BLANKS. 

END 


(*  WITH  PC100 
WITHOUT  PC  100 


IF  PC^OO  THEN 
GENKEY  (K  ADV)  ; 
CLOSELINE  * 

END; 


(*  WITH  PC  100 
(*  PPRINT 


r 
*) 

*) 


►  *.  - 


ty 


m. 


fT1 
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*  *  *  *  *•»*»* 


************************  9*  **  4  *********************  tt  *  4  ***  3 

* 

*  CTHER  COMMAND  WORD  PARSE/GENERATE  ROUTINES 

* 

********************************************************* 


(*-6  8 - 

(*  PCETICN  SETS/RESETS  THE  CPTICN  TOGGLES  WHICH  ALLOW  THE 
(*  USER  OUTSIDE  CONTROL  OF  COMPILER  OUTPUTS;  NOTE  THAT 
(*  THIS  CONSTRUCT  IS  NOT  THE  SAME  AS  THE  OPTION  STATEMENT 
(*  OF  WBASIC;  IT  IS  INTENDED  FOR  USE  AT  THE  BEGINNING  OF 
(*  THE  SOURCE  PROGRAM;  USE  ANYWHERE  ELSE  MAY  PRODUCE 
(*  UNEXPECTED  RESULTS  AND/OR  OPERATING  SYSTEM  ERRORS. 

(* - 

PROCEDURE  PCFTION; 


VAR 


SWITCH 

TOGGLE 


:  BOOLEAN; 
:  INTEGER; 


BEGIN 

GENKEY  (K  NOP)  ; 

SCAN  (TOKTUM)  ; 

WHILE  NOT  (TOKNUM  IN  TRAILTOKS)  DO 
BEGIN 

SWITCH  :=  TRUE; 

IF  TCKNUM  IN  SIGNTOKS  THEN 
BEGIN 

IF  TOKNUM  =  MINUS  TOK  THEN 
SWITCH  :=  FALSE  ; 

SCAN  (TOKNUM) 

END; 

IF  TCKNUM  =  NOMEERTOK  THEN 
BEGIN 

TOGGLE  :=  XNUMBER  jACCUM,  ACCINX)  ; 
IF  TOGGLE  IN  (.0..3.)  THEN 
CASE  TOGGLE  OF 


0 
1 

2 

3 

4 

5 

6 

7 

8 

END 
ELSE 
EEGIN 
PWARN ; 
WRITE 


LIKK59 

PC  100 

OPTEAR 

OPTNOP 

CODUMP 

SYEUMP 

DS  DUMP 

TOKCUT 

TOKLIS 

(*  CASE 


-  TRUE: 

=  SWITCH; 
=  SWITCH; 
=  SWITCH; 
=  SWITCH; 
=  SWITCH; 
=  SWITCH; 
=  SWITCH; 
=  SWITCH 
*) 


(LIST  F, 


WRITELN  (LIST  F , 
END 


•  ***** 

ACCOM) 


NO  SUCH  OPTION. . . •) ; 


(LISTF,  »****♦  OPTION  PARAMETERS  ARE  •)  ; 
(LISTF ,  * -8 . . 0 . .  +  8  ONLY.'); 


END 
ELSE 
EEGIN 
PWARN  ; 

WRITE 
WRITELN 
END; 

SCAN  (TOKNUM) 

END: 

CLCSELINE 

END;  (*  POETICN  *) 

^*** ***************  ********  ******  ************************  **<^ 
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#*#■«•*  ***»**** 


(*- 69 - r - *) 

(*  PNOLEI  PARSES  AND  GENERATES  CODE  FOR  AN  ASSIGNMENT  *) 

j*  STATEMENT  WHICH  DOES  NOT  BEGIN  WITH  THE  'LET'  COMMAND.  *J 

PROCEDURE  FNOLST; 

VAR  RESULT  :  SLOTPTR; 

BEGIN 

RESULT  :=  IDLOOKUP  (ACCUM,  ACCINX)  ; 

SCAN  (TCKNUM)  ; 

IF  TCKSUH  O  EQUALTOK  THEN  (*  •=•  *) 

PERRCR 
ELSE 
BEGIN 

SCAN  (TOKNUM)  ; 

PEXPR ; 

GENKEY  (K  STO); 

IF  RESULTS'. TYP  =  VARID  THEN 
GENKEY  (RESULTS.  REG  NO) 

ELSE  IF  RESULTS. TYP  =  FNPID  THEN 
GENKEY  (RESULTS.  FNREGNO) 

ELSE 

PERROR 

END 

END;  (*  PNOLET  *) 

(*****#***************** *** ***  ********* ** ** ** ** **** ********) 


S7 


i*-7  2 - *) 

*  PGCTO  GENERATES  TEE  TI-59  GTO  STATEMENT  AND  ITS  *) 
*  PCTENTIAL  ADDRESS  SPACE:  THE  JUMP  POINTER  FROM  THE  1ST  * 
*  NCCE  CE  THIS  ADDRESS  SPACE  IS  POINTED  TO  THAT  NODE  IN  *) 
*  THE  CODE  DATA  STRUCTURE  WHICH  IS  THE  START  (OR,  IN  THE  *) 
(*  CASE  CE  FORWARD  JUMPS,  THE  POTENTIAL  START)  OF  CODE  *) 
(*  GENERATED  FOR  THE  WEASIC  LINE  NUMBER  REFERENCED  IN  TEE  *) 


(*  GOTO  COMMAND.  * 

(* - - * 


PROCEDURE  FGOTO; 

EEGIN 

GENKEY  (K  GTO)  ; 

SCAN  (TCKTUM)  : 

IF  TOKNOM  O  NUMBERTOK  THEN 
PERRCR 
ELSE 
EEGIN 

SET  JM  PEXT  (XNUMEER  (ACCOM,  ACCINX)); 

GENKEY  (-2); 

GENKEY  (-2) 

END: 

CLCSELINE 

END;  (*  PGOTO  *) 

(*** * **  *  *  ** *** *************  ******************  *********  *****) 


(*-73 - - *) 

(*  PGCSUE  GENERATES  A  CALL  TO  A  SUBROUTINE  REFERENCED  BY  *' 
i*  WEASIC  LINE  NUMBER;  NOTE  THAT  ALTHOUGH  W BASIC  CALLS  * 
(*  SUBROUTINES  BY  LINE  NUMBER,  THE  TI-59  CO  J  GENERATED  * 
(*  CALLS  A  SUBROUTINE  BY  A  LABEL  NAME;  AN  EXTERNAL  JUMP  *) 

*  IS  SET  (AS  IN  THE  GOTO)  ,  HOWEVER,  RESOLUTION  OF  THE  *) 
(*  JUMP  WILL  BE  MADE  EY  INSERTING  THE  LABEL  USED  IN  THE  *) 
i*  CALL  IN  FRONT  OF  THE  NODE  REFERENCED  BY  THE  JMPP:  THIS  *) 
(*  INSERTION  IS  DONE  AFTER  ALL  CODE  HAS  BEEN  GENERATED. 

(*  NOTE  THAT  THIS  ROUTINE  NEITHER  CHECKS  FOR  NOR  DOES  IT  * 
i*  KNOW  CE  THE  EXISTENCE  OF  A  RETURN  STATEMENT  IN  THE  *i 
l*  SEQUENCE  OF  SOURCE  CODE  ASSUMED  TO  3E  THE  GOSUB  EODY ;  * 

*  IF  THE  USER  DOES  NCT  PROVIDE  A  RETURN  STATEMENT,  THEN  * 
(*  NO  CORRESPONDING  TI-59  INVSBR  (SBR  RETURN)  WILL  BE  *) 
(*  GENERATED,  AND  THE  SBR  RETURN  REGISTER  IN  THE  * 
(*  CALCULATOR  WILL  NEVER  BE  CLEARED  OF  THAT  SBR  CALL.  * 

i* - * 


PROCEDURE  PGCSUB; 

BEGIN 

GENKEY  (K  SBR)  ; 

SCAN  (TOKUUM)  : 

IF  TCKNUM  O  NUMBERTOK  THEN 
PERRCR 
ELSE 
EEGIN 

SETJMPEXT  (XNUMEER  (ACCUM,  ACCINX)); 

GENKEY  (NEWL3L) 

END: 

CLCSELINE 

END;  (*  PGOSUB  *) 

(************** ************  ****************** **************) 


rr~ 


*-74 - * 

*  PRETURN  GENERATES  THE  RETURN  FROM  A  SUBROUTINE.  * 


*  STRUCTURED  PROGRAMMING  DISCIPLINE  DEMANDS  A  RETURN  FOR  * 


(*  EACH  SCBEOUTI NE  CAII;  NOTE  THAT  THE  TI-59  HAS  A  LIMIT  * 
(*  OF  SEE  RETURN  ADDRESSES  WHICH  CAN  3E  STACKED;  THE  USER  * 
(*  SHOULD  REMEMBER  THAT  THE  WBASIC  RETURN  STATEMENT  IS  * 
(*  THE  CNLY  ONE  WHICH  WILL  GENERATE  THE  TI-59  INVSBP  * 
(*  FOR  A  GCSUB  GENERATED  SB  R  CALL  (FUNCTIONS  GENERATE  SBR  * 
(*  AND  INVSBR  ALSO  ,  EOT  THEY  DO  THIS  AS  A  RESULT  OF  THE  * 
j*  FNEND  STATEMENT  OB  A  ONE-LINE  FUNCTION).  * 


PROCEDURE  PEETURN; 

EEGIN 

GENKEY  (K  INVS3R)  ; 

CIC  SELINS” 

END;  (*  PRETUPN  *) 

(******************************************  **  **  **  *  ****  ***  **) 

(*-75 - *) 

(*  PPAUSE  GENERATES  (82)  (31  )  WHICH  ARE  ACTUALLY  A  VOID  *) 
(*  CODE  AND  THE  'LRN'  KEY;  WHEN  ENTERING  HIS  PROGRAM  INTO  *) 
(*  THE  CALCULATOR  THE  USER  MUST  ENTER  'STO  31'  INSTEAD  OF  *) 
(*  (82)  (21)  WHICH  CANNOT  BE  ENTERED  DIRECTLY  ANYWAY;  THEN  *) 
(*  THE  USER  MUST  BACKSTEP  AND  CHANGE  THE  ORIGINAL  •  STO  31'*) 


(*  BY  ISSUING  THE  FOLLOWING  EDITING  KEY  STROKE  SEQUENCE  * 
i*  TO  THE  CALCULATOR  IMMEDIATELY  AFTER  ENTERING  THE  * 
(*  '  STO  31' S  BST,3ST,N0P,S  ST.  THIS  WILL  REVISE  THE  * 
i*  ORIGINAL  'STO  31'  TO  'NOP  31';  WHEN  ENCOUNTERED  BY  THE  * 
i*  CALCULATOR  THESE  2  INSTRUCTIONS  WILL  STOP  EXECUTION  EY  * 
(*  SHIFTING  THE  CALCULATOR  INTO  THE  LEARN  (LRN)  MODE;  * 
i*  IN  ORDER  TO  RESUME  EXECUTION,  THE  USER  MUST  ENTER  * 
(*  'LRN'  (PLACING  THE  DISPLAY  REG  BACK  INTO  VIEW)  * 
(*  FOLLOWED  EY  •  R/S «  (WHICH  RESUMES  THE  PROCESSING  MODE):  * 
I*  THIS  INTERRUPTION  CF  EXECUTION  DOES  NOT  CAUSE  ANY  SIDE  * 
(*  EFFECTS  AND  PROVIDES  AN  ACCURATE  INDICATION  OF  THE  * 
(*  LOCATION  OF  ANY  'PAUSE'  STATEMENTS  PLACED  IN  THE  * 
(*  WBASIC  SOURCE  CODE:  THIS  IMPLEMENTATION  OF  THE  'PAUSE'  * 
(*  INSTRUCTION  PROVIDES  A  CONVENIENT  AND  RECOGNIZABLE  * 
i*  DEEUGGING/TR  ANSLATION  TOOL  WHICH  CARRIES  A  LOW  * 
(*  OVERHEAD  IN  TERMS  CF  REGISTER/PROGRAM  STEP  USE.  * 
* - - - - - - - * 


PROCEDURE 

PPAUSE  ; 

EEGIN 

GENKEY 

(82); 

(*  VOID  *) 

GENKEY 

31  ; 

(*  LEARN  *) 

CLOSELINE 

END;  (*  PPAUSE  *) 

(************************** ******************  ************ **} 
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76 - 

ESTOP  GENERATES  CCCE  WHICH  CAUSES  THE  TI-59  TO  HALT 

*  EXECUTION  AND  DISELAY  '888*  THUS  SIGNALING  THAT  A 

*  PROGRAM  STOP  HAS  EEEN  ENCOUNTERED  INSTEAD  OF  A  DATA 

*  INPUT  CR  MAGNETIC  CARD  LINKING  INSTRUCTION. 


PROCEDURE  ESTOP; 

VAR  I  :  1..4; 

BEGIN 

GENKEY  (K  CE)  ; 

FOR  I  :=  1  TO  3  DO 
GENKEY  (8)  ; 
GENKEY  (K  RS)  ; 
CLGSELINE" 

END; 


(*  ESTOP  *) 


(**************************  +  *  ****  ***  *  ********  ****  ********  **  'j 


!*  —  7  7 - 

*  PEND  ASSUMES  THAT  THE  END  OF  THE  WBASIC  SOURCE  FILE  * 
*  HAS  BEEN  ENCOUNTERED  AND  WILL  INSERT  THE  END  OF  FILE  * 
*  CHAR  INTO  THE  TOKEN  STREAM.  CAUSING  IMMEDIATE  * 
*  TERMINATION  OF  THE  COMPILATION  PROCESS.  * 


EROCEDURE  PEND; 


BEGIN 

GEN 


GENKEY  (K  NOP)  ; 
TOKNUM  ;="ENDFILTOK 
END; 


(*  PEND  *) 


*****************  ******  ***  ************  ****************  **  ** 

*  * 

*  CODE  RESOLUTION  ROUTINES  * 

*  * 
********************************************************** 

7  8 - * 

*  P  UTGOSUBLBL  USES  PROCEDURE  INSERIKEY  TO  ENTER  THE  LBL  * 

*  REFERENCED  BY  THE  GOSUB  CALL  INTO  THE  CODE  SEQUENCE  AT  * 

*  LOCATION  POINTED  TO  BY  TO  BY  THE  JMPP  (LBLP)  .  * 


PROCEDURE  PUTGOS  UBLBL  (LBL  .*  LELRNG;  VAR  LBLP  :  CODEPTR )  ; 


BEGIN 

WITH  LEIEa.BAKPa  DO 
BEGIN 


INSERTKEY  (LBL,  SEQP)  ; 
INSERIKEY  (K_L  EL,  SEQP) 


END  ; 


(*  PUTGOSUBLEL  *) 


(********************************************  **************) 

7  9 - * 

*  FI NDGCSUELBL  SEARCHES  THE  CODE  DATA  STRUCTURE  TO  FIND  * 

*  SBR  CALLS  FOR  WHICH  THE  JMPP  HAS  BEEN  SET:  THESE  WILL  * 

*  CORRESPOND  TO  WBASIC  GOSUB  STATEMENTS;  THE  JMPP  IS  * 

*  FCLLCWED  AND  THE  CORRECT  LABEL  IS  INSERTED  INTO  THE  *' 

*  CODE  SEQUENCE  USING  THE  BAKP  AND  PROCEDURE  PUTGOSUBLEL  * 

- * 


PROCEDURE  FINDGOSUBLEL  (VAR  START  :  CODEPTR); 
VAR  TRAVEL?,  TAILP  :  CODEPTR; 

BEGIN 

TRAVEL? ' : =  START®. SEQP; 

TAILF  :=  START; 

WHILE  TRAVELP  <>  ENDCPS.SEQP  DO 
BEGIN 

WITH  IRA  VELP®  EC 


IE  (JMPP  <>  NIL)  AND  (TAILP®.  KEY  =  K  SBR)  THEN 
BEGIN  (*  FIRST  CHECK  FOR  REDUNDAHT  GOSUB  C 
IF  JMPP®. EAKP®.  SEQF®.  KEY  =  K  LBL  THEN 
KEY  ;=  JMPP®. BAKP®. SEQP®. SEQP®. KEY 
ELSE 

PUTGOS  UELBL  (KEY,  JMPP);  (*  INSERT 
JM  PP  ®.  AD  DR  :=  -1;  (*  UNMARK  JM 

JMPP  :=  NIL  (*  RESET  JMP 

END; 

TAILP  :=  TRAVELP: 

TRAVELP  :=  TRAVELP®. S EQP 
END 


END  ; 


CALL  *) 


{*  INSERT  A  LABEL  * 
UNMARK  JMPP  AD  DR  * 
RESET  JMPP  TC  NIL  * 


(*  FINDGOSUBLEL  *) 


(*****************  ******  ***  ******************  ************  **) 


8  0 - 

*  0  SQPAREN  (OPTIMIZE  SQUEEZE  PARENTHESES)  REMOVES 

*  UNNECESSARY  PARENTHESES  (IN  PAIRS)  FROM  THE  CODE  DATA 
(*  STRUCTURE  FOR  THE  MOST  COMMON  CASES,  NAMELY  '  (RCL  NN )  ' 

*  AND  •  (<LITERAL  NU BERIO) 


PROCEDURE  OSQPAREN  (START  :  CODEPTR)  ; 

VAR  OPEN,  CLOSE,  TAILP,  MOVEP  :  CODEPTR 
CPENCT ,  CLOSECT  :  INTEGER 


*-80-01 - 

*  CCUNTREP  COUNTS  THE  NUM3ER  OF  SEQUENTIAL  OCCURENCES  OF 

*  KEYC  AT  A  PARTICULAR  LOCATION  IN  THE  CODE  DATA  STRUCTR 

*  STRUCTURE;  NOTE  THAT  IT  ALSO  CHECKS  FOR  JMPP  POINTERS 

*  TO  THESE  KEYS. 


FUNCTION  CCUNTREP  (VAR  MOVE  P ;  CODEPTR  ;  KEYC  :  INTEGER)  ;  INTEGER; 
VAR  COUNT  ;  INTEGER; 

EEGIN 

COUNT  :=  0; 

WHILE  ( MOVEP® .  KEY  =  KEYC)  AND  (MOVEP®.  ADDR  =  -1)  DO 
BEGIN 

MCVEF  :=  MOYEPa.SEQP; 

COUNT  :=  COUNT  ♦  1 
END: 

COUNTREF  :=  COUNT 

END;  (*  COUNTREP  *) 


*  NUMBERUN  MOVES  ITS  POINTER  PARAMETER  PASSED  ANY  NODE  * 

*  WHICH  CONTAINS  A  NUMERIC  LITERAL  KEY  CODE  AND  HAS  NO  * 

*  POINTER  REFERENCE;  IT  IS  ASSUMED  HERE  THAT  NO  JUMP  * 

*  POINTER  IS  EVER  SET  IN  THE  MIDDLE  OF  A  NUMERIC  LITERAL  * 

*  KEY  SEQUENCE,  ELSE  PART  OF  THE  NUMBER  MAY  BE  REMOVED.  * 

PROCEDURE  NUMBERUN  (VAR  MOVEP  :  CODEPTR); 

EEGIN 

WHILE  (MOVEP®.  KEY  IN  NUMSRICKEY)  AND  (MOVE?®.  ADDR  =  -1)  DC 
MCVEF  :=  MOVEP®. SEQP 


END; 


(*  NUMEERUN  *) 


•  ■  * 


*****  *  ****** 


*  R  EMOV  EPAEEN  TAKES  PAIRS  OF  NODES  OUT  OF  THE  CODE  DATA  *' 

*  STROCTORE;  NOTE  THAT  THIS  PROCEDURE  DOES  NOT  KNOW  WHAT  * 

*  CODE  IT  IS  REMOVING;  THAT  IS  DEFINED  BY  OSQPAREN.  *’ 


PROCEDURE  REMOVEPAREN  (VAR  OPEN,  CLOSE 

OPENCT,  CLOSECT 

BEGIN 

REPEAT 

OPENS. SEQP  :=  OPENS. SEQPS.  SEQP; 
OPENCT  :=  OPENCT  -  1: 

CLOSES.  SEQP  :=  C  LCSES.  S  EQPS.  S EQP  ; 
CLOSECT  :=  CLOSECT  -  1 
UNTIL  (CPENCT  =  0)  CR  (CLOSECT  =  0) 
END; 


CODEPTR ; 
INTEGER)  ; 


(*  REMOVEPAREN  *) 


BEGIN  (*  CSQPAREN  MAIN  *) 

MOVER  ;=  START; 

WHILE  MCVEPS.  SEQP  <>  NIL  DO 
BEGIN 

IF  (MOVEPS  .KEY  =  K  OP  AREN)  AND  (MOVEPS.  ADDR  =  -1)  THEN 
EEGIN 

OFEN  :=  TAILP;  (*  SET  OPEN  PTR  *) 

OPENCT  :=  CCUNTREP  (MOVE?,  K  OPAREN): 

IF  (MOVEPS. KEY  =  K  RCL)  AND  (  MOVEPS .  ADDR=- 1 )  THEN 
BEGIN 

CLOSE  ;=  MOVEPS.  SEQP;  (*  SET  CLOSE  PTR  *) 

MOVEP  ;=  MOVEPS. SEQPS. SEQP;  (*  MOVE  AHEAD  *) 
CLOSECT  :=  COUNTREP  (MOVER,  K  CPARSN)  ; 

IF  CLOSECT  >  0  THEN  (*  IF  EXTRAS,  DELETE  *) 
REMOVEPAREN  (OPEN,  CLOSE,  OPENCT,  CLOSECT) 

END 

ELSE  IF  (MOVEPS. KEY  IN  NUMERICKEY)  AND 

(MCVEPS. ADDR  ■  -1)  THEN 

EEGIN 

WHILE  MCVEPS.  SEQPS.  KEY  IN  NUMERICKEY  DO 

MOVEP  :=  MOVEPS. SEQP;  (*  PASS  OVER  NUMBER  *} 
CLOSE  ;=  MOVER:  (*  SET  CLOSE  PTR  *) 

MOVEP  :=  MOVEPS.  SEQP;  (*  MOVE  AHEAD  *) 

CLOSECT  :=  COUNTREP  (MOVEP,  K  CPAREN)  : 

IF  CLOSECT  >  0  THEN  (*  IF  "EXTRAS ,  DELETE  *) 
REMOVEPAREN  (OPEN,  CLOSE,  OPENCT,  CLOSECT) 

END 

END: 

TAIL?  :=  MOVER: 

MCVEF  :=  MOVEPS. SEQP 

END 

END;  (*  OSQFAREN  *) 

(********  **  *******  *********  ********************************) 


<*-8  1 - 

(*  OSQNCP  (OPTIMIZE  SQUEEZE  NOP)  LOCATES  ALL  'NOP'  KEY 
(*  CODES.  RESETS  POINTER  REFERENCES  TO  THEM  IF  THEY  EXIST 
(*  AND  THEN  PINCHES  THEM  OUT  OF  THE  CODE  DATA  STRUCTURE. 

?* - - - 


PROCEDURE  OSQNOP  (VAR  START  :  CODEPTR)  ; 

VAR  CUR  :  CODEPTR; 

I  :  0..3; 

INDEX  :  CTEXTRNG; 


BEGIN 

CUR  :=  START; 

WHILE  CUR  O  NIL  DC 
EEGIN 

IF  CURS.  JMPP  <>  NIL  T 
WHILE  (CURS  .  JKPPS.  K 
AND  (CURS.JMP 
BEGIN 

CURS.JMPPS.ADDR 
CURS.JMPP  :=  CU 
CURS.JMPPS.ADDR 
END; 

CUR  :=  CURS.SEQP 
END; 

CUR  *  =  START" 

WHILE  CURS.SEQP  <>  NIL  DO 
BEGIN 

INDEX  ;=  CURS.  KEY; 

FOR  I  :=  1  TO  (CTE  XT  ( 
CUR  :=  CURS.SEQP; 

IF  (CURS.  SEQPS. KEY  = 
THEN  CURS.SEQP  :=  C 
ELSE 

CUR  :=  CURS.SEQP 

END 

END; 

(*****************  ********* 


(*  RESET  JMPPS  PAST  NOPS  *) 
(*  ASSUMES  THAT  NO  JMPP 
>'*  IS  SET  ON  POTENTIAL  *' 
HEN  (*  ADDR  SPACE  NOPS.  * 

EY  =  K  NOP) 

P  <>  ETIDCF)  DO 

:  =  -  1  • 

R3. JMFtS.  S  SQP; 

:=  0 


(*  SQUEEZE  OUT  NOPS  *) 

(*  FIX  THE  INDEX  TO  CTEXT  *) 
.INDEX.)  .UNIT)  DO 

(*  BYPASS  REG/ADD R  SPACES  *) 
K  NOP)  AND  (CURS. SEQPS.  ADDR  =  -1) 
UKS.SEQPS.SEQP  (*  REMOVE  NOP  *) 

(*  NEXT  NODE  *) 

(*  CSQNOP  *) 

****************** **************) 


{*-8  2 - *) 

(*  RESCLVE  ADD  R  FILLS  THE  A  DDR  FIELDS  OF  ALL  TI-59  CODE  *) 
(*  NODES  LINKED  IN  THE  CODE  DATA  STRUCTURE,  AND  THEN  * 

*  FILLS  THE  KEY  FIELDS  OF  NODES  WHICH  HAVE  NON-NIL  *> 

(*  JMFF'S  WITH  THE  ABSOLUTE  A  DDR  POINTED  TO  BY  THOSE  * 

(*  JMFF'S;  JMPP'S  ARE  THEN  SET  BACK  TO  NIL.  * 

- -r - *) 

PROCEDURE  RESOLVE_ADDR  (START  :  CODEPTR)  ; 

VAR  TRAVEL  :  CODEPTR; 

I  :  INTEGER; 


(* - - - *) 

i*  INSERT  JMPADDR  CONVERTS  THE  ADDR  FOUND  AT  THE  NODE 
,*  REFERENCED  BY  JMPP  PTR  INTO  A  TI-59  MACHINE  CODS  ADDR 
i*  (2  INTEGERS  IN  RANGE  0..99),  AND  INSERTS  IT  INTO  THE 
(*  THE  KEY  FIELDS  (OCCUPIED  BY  -2'S)  OF  THE  NODES  FROM 
l*  WHICH  THE  JMPP  ORIGINATES. 


PROCEDURE  INSERT_JMP  ADDR  (J  ADDR  : 
VAR  HIPART,  LOPART  ;  INTEGER; 
BEGIN 

HIPART  :=  JADDR  D IV  100; 

LOPART  :=  JADDR  -  HIPART  *  100; 
TRAVELS. KEY  :=  HIPART: 

TRAVELS. SEQPS.  KEY  :=  LOPART 
END; 


INTEGER)  ; 


(*  SPLIT  ADDR  INTO  *) 
(*  HI/LO  PARTS:  * 

(*  OVERWRITE  NOP'S  * 
(*  W/  ABS  ADDR'S.  *) 
(*  INSERT_JMFADCR  * 

- - *) 


BEGIN  <*  RESOLVE  ADDR  MAIN  *) 

TRAVEL  :=  START;” 

I  *  =  0  • 

WHILE  iBAVEL  <>  ENDCPS.SEQP  DO  (*  INSERT  ABSOLUTE  ADDR  *) 
BEGIN 

TRAVELS.  ADDR  :  =  I; 

TRAVEL  :=  TRAVELS.  SEQF; 

I  :*  I  ♦  1 
END; 

TRAVEL  :  =  START* 

WHILE  TRAVEL  <>*  ENCCPS.  SE  CP  DO  (*  FIND/JUSTIFY  JMP  ADDR  *) 
EEGIN 

WITH  IRAVELS  DC 

IF  JMPP  <>  NIL  THEN  (*  FIND  JMPP'S  WHICH  ARE  SET  *) 
BEGIN 

INSERT  JMPADDR  (JMPPS.ADDR)  ; 

JMPP  :=  NIL  (*  SET  JMPP  BACK  TC  NIL  *) 

END; 

TRAVEL  :=  TRAVELS.  SEQF 
END 

END;  (*  RESOLVE  ADDR  *) 


4I1U1 


rf 


********* *  4***  ******************************  **************) 

!*  *) 

*  OUTPUT  DUMP  ROUTINES  * 

*  *) 

**********************************************************) 

(*-83 - - - * 

i*  FINDMSG  LOCATES  TEE  START  OF  THE  CORRECT  MESSAGE  IN  * 

(*  THE  MSGFILE.  * 

i* - - *) 

PROCEDURE  FINDMSG  (VAR  MSGFILE  :  TEXT;  VAR  ESCHAR  :  CHAP; 

MSG  NO  :  INTEGER) ; 

VAR  CH  :  CHAR; 

I  ;  INTEGER; 

BEGIN 

RESET  (MSGFILE,  '  N  AME=  MSG  F .  F  ASC  AL.  A  • )  ; 

REAELN  (MSGFILE,  ESCHAR); 

REPEAT 

READ  (MSGFILE,  CH); 

IF  CH  =  ESCHAR  THEN  (*  CHECK  FOR  ESCAPE  CHAR  &  MSG  NO  *) 
REAELN  (MSGFILE,  I) 

ELSE 

REAELN  (MSGFILE) 

UNTIL  (ECF  (MSGFILE))  OR 

(  (CH  =  ESCHAR)  AND  (I  =  MSG  NO)) 

END;  ’  (*  FINDMSG  *J 

{***********  ******************************************  *****) 

i*-84 - * 

*  WRITLN  WRITES  A  FULL  MESSAGE  FROM  •SB*  TO  $N»  AS  FOUND  * 

*  IN  THE  MSGFILE.  * 

* - - - - — - — - - •  _—...* 

PROCEDURE  WRITLN;  (*  FWD  DECL  WITH  I/O  COMMAND  ROUTINES  *) 

VAR  CH,  ESCHAR  :  CHAR; 

I  :  INTEGER; 

BEGIN 

FINDMSG  (MSGFILE,  ESCHAR,  MSG  NO); 

REPEAT 

READ  (MSGFILE,  CH); 

IF  CH=ESCH  AR  THEN  (*  CHECK  FOR  EMBEDDED  ESCAPE  CHARS  *) 
REAELN  (MSGFILE,  I)  (*  AND  DISCARD  IF  FOUND.  *) 

ELSE 

WRITE  (W FILE,  CH)  ; 

IF  EC  IN  (MSGFILE)  THEN  (*  NEXT  LINE  *) 

BEGIN 

REAELN  (MSGFILE)  ; 

WFITELN  (W  FILE) 

END 

UNTIL  (EOF  (MSGFILE))  OR 

((CH  =  ESCHAR)  AND  (I  =  MSG  NO)) 

END;  (*  WRITLN  *) 

(**********************************************************) 


(*-8  5 - 

(*  WRIT  WHITES  A  ONE-LINE  M 
(*  MESSAGE  FROM  THE  MSGFILE 

(*" . — . . 


ESSAGE  OS  THE  FIRST  LINE  OF  A  * 

.  * 
- * 


PROCEEURE  WRIT  (VAR  WFILE,  MSGFILE  :  TEXT 


VAR  CH,  ESCHAR  :  CHAR; 

I  :  INTEGER; 

EEGIN 

FINDMSG  (MSGFILE,  ESCHAR, 
REPEAT 

READ  (MSGFILE,  CH)  ; 
WRITE  (WFILE,  CH) 

UNTIL  ZCLN  (MSGFILE) 

END; 


ilb  (it  ill  :  text: 

MS G_NO  :  INTEGER)  ; 


MSG__NO)  ; 


(*  WRIT  *) 


(**************************  ********************************) 


*  REPORT  COMPUTES  AND  WRIT 


ES  THE  REGISTER/LABEL  SUMMARY. 


PROCEDURE  REPOST  (VAR  WFILE  :  TEXT)  ; 


LTCTAL 

RTCTAL 


LBLRNG: 

INTEGER; 


EEGIN 

WRITLN  (W 
WRITELN  ( 
WRITELN  ( 
IF  ERRCRC 
WRITLN 
RTCTAL  := 
LTOTAL  := 
WRITELN 
WRITELN  i 
WRITELN  i 
WRITELN 
WRITELN  i 
WRITLN  (W 
END; 


FILE,  MSGF,  3)  ; 
WFILE,  E  R  BCRCt:  7 
WFILE,  WAHNCT:7, 
T  >  0  THEN 


(WFILE,  MSGF,  14); 

=  NEXTREG  -  ST  ART  REG; 


,  •  FATAL  ERRORS. • ) ; 
•  WARNING  MSGS.'); 
(*  CALCULATIONS 


(*  CALCULATIONS  INCOMPLETE  *) 


LBLCT  -  1; 
WFILE)  ; 

WFILE,  NEXTREG:  1 
WFILE, 'TOTAL  REG 
WFILE, 'TOTAL  REG 
WFILE, 'TOTAL  LA 
FILE,  MSGF,  4) 


,  '  IS  NEXT  AVAILABLE  REGISTER'); 
ISTSRS  RESERVED  =  • ,  RES ER VECT:  1)  ; 
ISTERS  USED  =  ',  RTOTALrl); 

EELS  USED  =  ',  LTOT AL :  1)  ; 

(*  REPORT  *) 


r ************************** ********************************] 
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-87 - 

*  COEEDUHP  WRITES  TEE  TI-5  9  CODE  STORED  IN  THE  CODE  DATA  * 

*  STRUCTURE  AND  APPLIES  THE  CTEXTF  FILE  TO  EACH  STEP  TC  * 

*  PRODUCE  THE  LITERAL  TEXT  OF  FOR  THE  KEY  STROKES.  * 

PROCEDURE  CCDEDUMP  (VAR  WFI L2  :  TEXT;  VAR  TICODE  :  CODEPTR) 

VAR  CUR,  HOLD  :  CODEPTR; 

I  :  0.-3; 


*  WRCODE  WRITES  THE  NUMERICAL  FORM  OF  TI-59  AD DR  AND  KEY 


PROCEDURE  WRCODE  (VAR  CUR  :  CODEPTR)  ; 


BEGIN 

WRITE  (WFILE 


'  :  5Li 


w  -i.  A  A-  I  ni  l  Ju  jj  m  •  *> 

ZEROPAD  (WFILE.  CUR2.ADDR,  3); 
WRITE  (WFILE,  f  •  :  3)  ; 

ZERCPAD  (WFILE,  CUR2.KEY,  2)  ; 

UPTTP  rtPTTP  »  •  • 


WRITE  (WFILE, 
END; 


(*  WRCODE  *) 


BEGIN  (*  CCDEDUMP  BAIN  *) 
CUR  :=  TICODE: 

WRITLN  (WFILE,  MSGF,  5)  ; 
WRITE  (WFILE,  •$•).*  (* 


(*  HEADER  MSG  *] 
?EN  HERE,  * 


WRITLN 
WHILE  CD 
BEGIN 


(WFILE,  MSGF,  6): 
R2.SEQP  <>  NIL  DO 


WRCCDE  (CUR): 

WRIIELN  (WFILE,  CTEXT 
IF  CUR  a).  KEY  IN  <.K  SB 
BEGIN  (*  MUST  HOT 

cur  :=  cuRa.sEQP; 

WRCODE  (CUR); 
WRITELN  (WFILE,  C 
END 
ELSE 
EEGIN 

HCLD  :  =  CUR: 

FOR  I  :=  1  TO  (CT 
BEGIN  (*  UNIT 
CUR  :=  CUR3.S 
WRCODE  (CUR)  ; 
ZEROPAD  (WFIL 
WRITELN  (WFIL 
END 

END; 

CUR  :=  CURa.SECP 
END 

END  ; 

(************************** 


•$'  MUST  BE  WRITTEN  HERE,  * 

ELSE  WILL  INTERFERE  W/  WRITLN  * 
(*  BEGIN  CODE  MSG  * 


(.  CURS.  KEY . )  .CODECHAR)  ; 

8,  K  LBL. )  THEN 

TAK*2  SBR'S  OR  LBL'S  LITERALLY  *) 


TEXT(.CUR3.KEY.) .CODECHAR) 


EXT  (.HOLD3.  KEY.  )  .UNIT)  DO 

FIELD  DEFINES  TYPE  INSTRUCTION  *) 

EQP; 

E,  CUR3.  KEY,  2)  ; 

E) 


(*  CODEDUMP  *) 

******************  ****  *♦♦*♦*****) 


*  * 


(*-88 - * 

(*  LINK  INTERFACE  CREAIES  THE  SCRATCH  FILE  WHICH  PROVIDES  * 
(*  THE  TINKER  WITH  ALL  THE  INFORMATION  IT  MOST  HAVE  TO  * 
(*  SEGMENT  THE  TI-59  CODE:  ENTRIES  IN  SCRATCH  ARE  IN  THE  * 
j*  FORM  CF  SUB-FILES  (MESSAGES)  DELIMITED  BY  "$N".  * 

PROCEDURE  LINK_I  NTERF  ACE  ; 

I*  LOGTO  IS  USED  BY  LINK  INTERFACE  TO  READ  AND  WRITE  * 
(*  FILES  TO  THE  SCRATCH  FILE  (COPY).  * 
(* - - - - - - * 


PROCEDURE  LCGTO  (VAR  WFILE,  RFILS  :  TEXT;  MSGNO  :  INTEGER); 
VAR  CH  :  CHAR; 


BEGIN 

WRITE  (WFILE,  •$•,  MSGNO:  1)  ; 
WHILE  NCI  EOF  (RFILE)  DO 
BEGIN 

WHILE  NOT  EOLN  (RFILE)  DO 
BEGIN  (* 


END 


READ  (RFILE,  CH)  ; 
WRITE  (WFILE,  CH) 


(*  WRITE  MSG  DELIMITER  *) 
COPY  THE  FILE  TO  SCRATCH  ♦) 


WRITEiN  (WFILE); 

IF  NOT  EOF  (RFILE)  THEN 
REAELN  (RFILE) 

END; 

WRITELN  (WFILE,  •$',  MSGNCil); 
WRITELN  (WFILE) 

END; 


(*. 


(*  WRITE  MSG  DELIMITER  *) 
(*  LOGTO  *) 

. *> 


EEGIN  (*  L IN K _ IN T E R F AC E  MAIN  *) 

REWRITE  (SCRATCH,  •  NAM  E=S  CRATCH.  PASCAL.  A  •)  ; 

WRITELN  (SCRATCH,  • SI •  Is  (*  NEXT  REGISTER  =  MSG  $1  *) 

WRITELN  (SCRATCH,  NEXTREG  :  1,  •  IS  NEXT  AVAILABLE  REG.'); 
WRITELN  (SCRATCH,  'll')?  WRITELN  (SCRATCH); 

WRITELN  (SCRATCH.  '  $2M:  (*  TI-59  CODE  =  MSG  $2  *) 

CODEDUMP  (SCRATCH,  EEGINCP); 

WRITLN  (SCRATCH,  MSGF ,  7);  (*  END  CODE  MSG  *) 

WRITELN  (SCRATCH,  '12');  WRITELN  (SCRATCH); 

RESET  (NAMEF,  '  N  A  M  E=NA  MEF  .  WB  ASIC.  A  '  )  ;  (*  REG/NAME  MAP  *) 

LOGTO  (SCRATCH,  NAMEF,  3)  ;  (*  =  MSG  $3  *) 

IF  NCT  FIRST  RE  AD  TEEN  (*  DATA/READ  MAP  =  MSG  SU  *) 

EEGIN 

RESET  (READF,  '  NAM  E=R  EADF.  WBASIC.  A' )  ; 

LOGIC  (SCRATCH,  READF,  4) 

END 


END;  (*  LINK_INTEBFACE  *) 

(*********** ****** *********  **********  ********  ************  ** j 


- 9  - 


> 
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(*-89 - * 

!*  SYKTELEUMP  IS  A  S  FECIAL  PURPOSE  BOUTINS  USED  FOR  * 

*  DEEUGGING:  IT  MILL  EDM?  THE  ENTIRE  CONTENTS  OF  THE  * 

*  COMPILER  SYMBOL  TAELE  BUCKET  BY  BUCKET;  THIS  ROUTINE  * 

*  IS  TOGGLED  USING  CETION  NUMBER  5.  * 

(* - * 

PROCEDURE  SYMTBL  DUMP  (VAR  W  FILE  :  TEXT;  BUCKET  :  HASH); 

VAR  I  :  INTEGER; 

LOCK  ;  SLOTPTR  ; 

BEGIN 

WRITLN  (WFILE ,  MSG  F  ,  10);  (*  HEADER  MSG  *) 

FOR  I  :  =  0  TO  HASHEASE  DO 

IF  BUCKET ( • I • )  <>  NIL  THEN  (*  SKIP  EMPTY  BUCKETS  *) 

BEGIN 

ZERCPAD  (WFILE  I  2)* 

WRITLN  (WFILE, 'msSf,  \  1)  ;  (*  BUCKET  BOUNDARY  MSG  *) 


n  ux  X  l  n  x  X  ij  L  <  J  m  ill*  I 

LOOK  :=  BUCKET  (.  I.)  ; 

REPEAT 

WRITE  (WFILE,  •  'ill,  LOOKS 
WITH  LOOKS  DO 
CASE  TYP  OF 


(*  BUCKET  BOUNDARY  MSG  *) 


(*  UNTIL  LOOK  =  NIL  *) 
.IDENT,  '  •  :  1)  ; 


VARID 


EEGIN 

IF  REGNO  <  0  THEN 
WRITELN  (WFILE,  • 
ELSE 
BEGIN 


(*  PI  =  -3  14  *) 
CONSTANT') 


BEGIN 

WRITE 


REGNO.  2)  ; 

'  GLOBAL  VAR'  )  ; 
THEN  (*  IF  USED  *) 


END; 


WRITE  (WFILE,  •  • : 32 ) ; 

ZEROPAD  (WFILE,  AUXREG 1,  2)  : 
WRITELN  (WFILE,  '  AUXSEG  1') 


IF  ADXREG20- 1  THEN  (*  IF  USED  *) 
BEGIN 

WRITE  (WFILE,  '  '  :  32)  ; 
ZEROPAD  (WFILE,  AUXREG2,  2)  : 
WRITELN  WFILE,  '  AUXREG  2') 
END 


END 

END; 

FNQID  ; 

WRITELN  (WFILE, 

FNLID  : 

EEGIN 

ZEROP  AD 

(WFILE 

WRITELN 

(WFILE 

FNPID  : 

END; 

EEGIN 

ZEROP  AD 

(WFILE 

WRITELN 

(WFILE 

QUICK  FN' )  ; 


R  FN*  ) 


END;  (*  CASE  *) 
LCCK  ;=  LOCKS. SLO  ' 
UNTIL  LOCK  =  NIL 
END; 

WRITLN  (WFILE,  MSGF ,  12) 
END ; 


(*  END  SYMTBL  MSG  * 
(*  SYMTBLDUKP  * 


(**************************  ********************************) 


(*-90- - - - - 

(*  SEARCH  IS  A  SPECIAL  PURPOSE  DEBUGGING  TOOL; 

(*  THIS  PROCEDURE  FOLLOWS  AND  PRINTS  THE  CONTENTS  OF  ALL 
}*  FOINTEFS  IN  THE  CODE  DATA  STRUCTURE  /LINE  AND  CODEPTP) 
j*  THIS  ROUTINE  CAN  EE  TOGGLED  USING  OPTION  NUMBER  6. 

PROCEDURE  SEARCH  (VAR  WFILE  :  TEXT;  L  ST  ART  :  LINEPTR)  ; 

VAR  LESEARCH  :  LINEPTR;  CODF  :  CODEPTR; 

EEGIN 

WRITLN  (WFILE.  MSGF,  13);  (*  HEADER  MSG  *) 

LPSE ARCH  :=  LSTART; 

REPEAT 

WRITE  (W  FILE,  •  LIN  UM  =  •); 

ZEROFAD  (WFILE,  LFSE  ARC  Ha).  LINO,  5);  (*  W3ASIC  LINE  NO  *) 

WRITELN  (WFILE)  ; 

CCDP  :=  LPSEARCH2.CPTR; 

REPEAT  /*  11-5  9  CODE  ATTACHED  TO  WBASIC  LINE  NO  *) 

WRITE  (WFILE,  •  •  t  2 )  ; 

ZEROPAD  (WFILE,  C0DP2.ADDR,  3); 

WRITE  (  WFILE  ,  '  •  :2  )  ; 

ZERCFAD  (WFILE,  CODP2.KEY,  2)  ; 

WRITELN  (WFILE); 

CODE  :=  CO  DP2 .  SEQP 

UNTIL  (CCDP  =  LPSEARCHa.LPTR2.CPTR)  OR  (CODP  =  NIL)  ; 
LFSEA5CH  ;=  LPS  E  ARCH 2. LPTR 

UNTIL  LPSEARC  H2. LI  NO  =  MAXBASLIN  (*  MAX3ASLIN  IS  END  *) 
END;  (*  SEARCH  *) 
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!**********************************************************) 

*  INITIALIZATION  ROUTINE  * 

*  *  j 

(**********************************************************] 

*-9  1 - *) 

*  INITIALIZE  SETS  UP  ALL  FILES,  DATA  STRUCTURES,  SETS,  * 

*  AND  INITIAL  VARIAELS  VALUES  REQUIRED  TO  BEGIN  THE  *1 

*  READING  AND  COMPILATION  OF  THE  WBASIC  SOURCE  CODE,  AND  * 
*  THE  OCTEUT  OF  THE  TRANSLATED  TI-59  CODE  AND  LISTINGS.  * 
* - * 

PROCEDURE  INITIALIZE; 

VAR  I  :  INTEGER; 

(* - *) 

LOADRW  READS  THE  RWTBLF  FILE  (RESERVED  WORD  TABLE)  AND  *| 
(*  LOADS  THE  RESERVED  WORD  CHAR/INDEX  ARRAYS;  NOTE  THAT  *) 

(*  THE  ARRAYS  ARE  STATIC  FIXED  AND  ARE  DEFINED  BY  THE  * 

(*  SYSTEM  PARAMETERS  RWCHARCT,  RWWORDCT ,  R  WLENGCT  IN  THE  * 
(*  CONSTANT  DECLARATION  BLOCK  AT  THE  FRONT  OF  THE  PROGRAM  * 
(* - *( 

PROCEDURE  LCADRW  (VAR  RWTBLF  :  TEXT); 

VAR  CHINX,  STARTCHINX  :  0.  .RWCHARCT  «•  1; 

WINX  ;  O..EWWORDCT  +  1; 

LINX,  LENG  :  0..RWLENGCT  +  1; 

CH  :  CHAR; 


BEGIN 

LINX 

CHINX 

WHILE 


:=  0; 

1  ? 

NCT  EOF  (RWTBLF) 
EEGIN 

STARTCHINX 


DO 


(*  INIT  LENGTH  INDEX  * 
(*  IF 


INIT  CHAR  INDEX  * 


:=  CHINX; 


'* 

>* 


READ  (RWTBLF,  WINX);  ( 
READ  jRWTBLF ,  CH,  CH)  ; 
EKWCRE  (.  WINX.  )  :=  CHI”” 

REPEAT  (♦  READ  CHA 
READ  (R WTBLF  ,  RWCHA 
CHINX  :=  CHINX  ♦  1 
UNTIL  EOLN  (RWTELF)  ; 

REACLN  (RWTBLF); 

LENG  :=  CHINX  -  STARTCHINX; 
IF  LENG  >  LINX  THEN  { 

EEGIN 


END; 
RWCHA R 
RWWCFD 


END; 
(*  — 


! 


READ  WORD  INDEX  (INTEGER) 
READ  OFF  2  ELANK  SPACES 

NX  • 

RS’OF  ONE  WORD  INTO  CHAR  ARRAY 
R  (.  CHINX.  )  )  ; 


(*  NEXT  WORD  *) 

IF  LENGTH  CHANGE,  THEN  * 
INDEX  ITS  LOCATION  IN  * 


LINX  : =  LENG; 

(*  THE 

LE 

NGTH 

ARRAY. 

*) 

RWLENG  (.  LI 
END 

NX.) 

:=  WINX 

(.RWCHARCT  ♦ 

1.) 

:=  BLANK;  (* 
:=  RWCHARCT  ♦ 

SET 

DELIMITERS  FOR 

*  ] 

(.RWWORDCT  ♦ 

I.f 

1 ; 

(* 

ARRAYS  AND 

*j 

(.RWLZNGCT  + 

1. 

:=  RWWORDCT  * 

1 

(* 

INDICES 

*) 

(*  LCADRW 

*j 

■  -*1 
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(*-9  1-02 - 

(*  LOADLIE  HEADS  PREDEFINED 
j*  AND  BIFNQF  FILES;  MAKES 


FUNCTION  LIBRARIES  IN  BIFNLF 
APPROPRIATE  SYM  TBL  ENTRIES. 


PROCEDURE  LCADLIE  (VAR  LIBFILE  :  TEXT;  FNTYPE  :  IDTYP; 

SEQLEN  :  INTEGER); 


VAR  IDSICT  :  SLCTPTR; 

I  :  INTEGER; 

EEGIN 

READLN  (LIBFILE);  READ  LN 
WHILE  NCT  EOF  (LIBFILE)  DO 
BEGIN 

ACCINX  :=  0; 

REPEAT 

ACCINX  :=  ACCINX  * 
READ  (LIBFILE,  ACCU 
UNTIL  ACCUM(.  ACCINX. ) 
FOR  I  :=  ACCINX  TO  MA 
ACCUM  (.  I  •)  :=  BLANK 

ACCINX  :=  ACCINX  -  1; 
IDSLCT  :=  GETS  LOT (ACC 
IDSLOT31.TYP  :=  FNTYPE 
FOR  I  :=  1  TO  SEQLEN 
CASE  FNTYPE  CF 


(LIBFILE)  ;  (*  SKIP  HEAD  LINFS  *) 


(*  1 
(*  R 


I  NX  T  ACCUM  I NDX  *) 
READ  NAME  OF  FN  * 


FNQID 

FNUD 


END  ; 


END; 


READLN  (LlEFILE) 
END 


READ  (LIB 
BEGIN 

IDSLOT3) 
READ  (L 
END 

CASE  *) 


M (. ACCINX. ) )  ; 

=  BLANK;  (*  TO  1ST  BLANK  *) 
XTOKLEN  DO  (*  FILL  REST  ELANK  *) 

*  {*  SET  INDEX  BACK  TO  NAME  LEN  *) 
OM, ACCINX)  ;  (*  ENTER  IN  SYMTBL  *) 

;  (*  SET  IDENT  TYPE  *) 

DO  (*  READ  KEY  CODES  *) 

FILE,  IDSLOTi.  FNQ  ( .1 . )  )  ; 

. FNLLINK  :=  NIL; 

IBFILE,  IDSL0T8. FNL(. I. ) ) 


(*  SKIP  TO  NEXT  LN  *) 
(*  LOADLIB  *) 


*  L C ADCTEXT  READS  TEE  CTEXT?  FILE  AND  LOADS  THE  DATA  * 

*  STRUCTURE  WHICH  WILL  PROVIDE  THE  TRANSLATIONS  OF  TI-59  * 

*  KEY  CODES  DURING  TEE  FTN  AL  CODE  DUMP.  * 


PROCEDURE  LCADCTEXT; 

VAR  I  :  INTEGER: 

J,  K  :  1 .  .  TEXTLEN  ♦  1  ; 

CH  :  CHAR; 

BEGIN 

READLN  (CTEXT  F);  READLN  (  CTEXTF)  ; 

WHILE  NCI  EOF  (CTEXTF)  DO 
EEGIN 

READ  (CTEXTF,  I,  CTEXT  (.  I.  )  .UNIT)  ; 

READ  (CTEXTF,  CE,  CH)  ;  (*  SKIP  TWO  BLANKS  *) 

J  •  “  j  « 

WHILE  NOT  EOLN  (CTEXTF)  DO 
EEGIN 

READ  (CTEXTF,  CTS  XT  (  .  I .  )  .  CO  DECHAR  (.  J. )  )  ; 

J  :=  J  +  1 
END; 

FOR  K  :=  J  TO  TEXTLEN  DO 

CTEXT(.  I.)  .  CCDECHAR  (.K.)  :=  BLANK; 

READLN  (CTEXTF)  ; 

END 


END  ; 


(*  LO ADCTEXT  *) 


EEGIN 


(*  INITIALIZE  MAIN  *) 


P  OPEN 
(* - 


ALL  FILES  AND  WRITE  OUTPUT  FILE  HEADERS. 


TEBMOUT 
RESET  ( 
RESET  < 
RESET  ( 
RESET  ( 
RESET 
RESET  ( 
RESET  ( 
REWRITE 
REWRITE 
WRITLN 
WPITLN 
WRITLN 


(OUTFITS)  : 
EASICF,  '  N  AME= 


MSGF, 
RKTBLF  , 
LAEELF, 
CTEXTF, 
EIFNQF, 
EIFNLF  , 
(LISTF  , 
(NAMEF, 


BASICF. WBASIC. A' 
N  A  ME=M  SGF. PASCAL.  A') 
NA  KE=R  WTB  LF. PASCAL.  ' 
NAME=LABSLF. PASCAL. 

NA  ME=CTEXTF. PASCAL. 
NAM  E“BIFNQF. PASCAL. 

N  A  ME=BIFN  LF. PASCAL. 

•  N AME= LISTF. WEASIC. 


N  AME=  NAM EF. 


A* 

A* 

A* 

A* 

A* 

A* 


(LIST?  ,  '  MSGF ,  2)  : 
(OUTFILE,  MSGF.  1) 
(NAMEF,  MSGF,  8)  ; 


URi  CTf  \  I 

~(*  H’EADEP  MSG  TO  LISTF 
(*  TERMINAL  INVOKE  MSG 
(*  HEADER  MSG  TO  NAMEF 


(*  INITIALIZE  OPTION  TOGGLES 
<* - 


LINK59 

PC100 

OPTPAR 

OFT  NOP 

CODUMP 

SYDUMP 

DS  DUMP 

TOKCUT 

TOKLIS 


FALSE; 

TRUE; 

TRUE  ; 

TRUE; 

TRUE  ; 

FALSE; 

FALSE; 

FALSE; 

FALSE; 


OPTION  0 
OPTION  1 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 
OPT  ION 


2 

3 

4 

5 

6 
7 


OPTION  8 


|*  INITIALIZE  RESERVED  WORD  ARBAY  INDEXES. 
LGADRW  (PWTBLF); 

*  —  — - — — —  ~  —  —  —  —  — — —  — —  — — — — — - — — 

*  INITIALIZE  CHARACTER  SETS. 

*  - - - 


LETTERS 

DIGITS 
ALF ANUM 
SIGNS 
DOUELE1 
DOUEI  E2 
SPECIALS 


SUBERRCR  := 
CRITICAL  ;= 
TRAILTCKS  := 
BINCPTCKS  ;= 

RELCPTCKS  := 

NUMERICKEY:= 

SIGNTCKS  := 
BEGIN  EXPRTOi 


•  A'  ..'I* 

tat  t -  t 

, 1  0  1  •  . 1  9  • 

LETTEFS  ♦ 

♦ 


♦ 

♦ 


(.'J'..'R'.)  ♦  f .  *  S  •  .  .  •  Z  •  .) 

j'. .'  =  •.)  ♦  (.'s'..'z'  .)  ; 


•  ♦  • 
•  <' 
'  >  • 
•  ♦  • 
•  s  • 


♦ 

•f 

♦ 

♦ 

♦ 


DI &ITS; 

i  _  i 

•  >' 

•  =  t 
t  _  i 

'  (' 
•>' 


♦ 

♦ 

♦ 

♦ 

+ 


t  *  • 
t  *  t 

V* 


.  EXCL 

♦  (.'$'.)  ♦  (. ' 

.  ENDLIN. )  ♦  (.ENDFIL.) 
.CMTCKSXC. )  ♦  (.  2NDLINT 


.PLUSTOK.) 
.DIVICK  .) 
UALTOK.) 


.EQ 

.LTECTOK 


K.) 

.K  DECPT.)  ♦  , 
.K“ZERO..K  9.) 
.  PXUSTCK  . )  “  ♦  ( 
:=  SIGNTOKS  ♦ 


♦  (.COMMA.) 
CLAM.)  ; 

♦  (.*€>•.)  : 

(.  ZNDLINTOK.  )  +  (.  SNDFILTOK.) 
.  MINUSTOK . )  +  (.MULTOK.) 

.  EXPTOK  .  ; 

(.  NOTEQTOK .  )  ♦  (.  GTEQTCK.  ) 

(.  LTTOK  .)  ♦  j.GTTOK.)  ; 

(.  K  EE.  )  ♦  (.  K  N aG.  ) 


MINUSTOK. )  ; 
(.IDENTOK.) 


+  (.  OPARENTOK.) 
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***  ***  ****  #  *  **#  *#*  *  #  a- 


*  INITIALIZE  HASH  TAELS  AND  REGISTER  COUNT 


FOR  I  :=  0  TO  HASHEASE  DO 
EUCKET  ( .  I. )  :=  NIL; 

NEXTREG  ; =  STARTREG; 


*  INITIALIZE  ARRAY  HOLDING  OUTPUT  TEXT  OF  TI-59  CODE. 


LOAECTEXT 


*  INITIALIZE  3UILT-IN  FUNCTION  LIBRARY 


LOACLTE  { EIFN  Q  F,  FNCID,  F  NOLEN 
LGACLIE  i  EIFNL  F.  FNIID.  FNLLEN 


*  ENTER  'FI'  =  3.  14  1592653  59  IN  SYMBOL  TABL 


ACCOR  (.1.)  :=  'P';  ACCUM  (•  2 . )  :=  •  I*  ; 

ACCINX  •=  2* 

FOR  I  :=  3  to  MAXTCKLEN  DC 
ACCUM  (.  I.)  ;  =  BL  ANK; 

IDSIOT  ;=  GETSLOT  (ACCUM,  ACCINX)  ; 
IDSLGTS.TYP  :=  V  ARID ; 


IDSL0T3. REGNO  :=  -314; 


(*  SPECIAL  REGNO  FOR  'PI'  *) 


*  INITIALIZE  LABEL  STACK  (ARRAY  OF  INTEGER  KEY  CODES) 


REACLN  (LAEELF): 

FOR  I  ;=  1  TO  L3LBASE  DO 

READ  (LABELF,  CL  AEEL  (.  I  . )  )  ; 
LBLCT  ;=  1: 


(*  SKI?  HEAD  LINE  *) 


*  INITIALIZE  RESERVED  REGISTER  SET. 


REACLN  (LAEELF  ;  R  EAELN  (LABELF)  ;  RSADLN  (LABELF); 
RESERVECT  :=  0; 

RESEFVE  REG  :=  (.  .);  (*  INITIALIZE  TO  EMPTY  SET  *) 

WHILE  NCT  EOF  (LABELF)  DO 
BEGIN 

WHILE  NOT  EOLN  (LABELF)  DO 
EEGIN 

READ  (LABELF,  I); 

RESERVE  REG  :=  RESERVE  REG  +  (.1.);  (*  MAKE  SET  *} 

RESERVECT  :  =  RESERVECT“+  1  (*  COUNT  MEMBERS  * 

END  ; 

REACLN  (LABELF) 


*  INITIALIZE  FN?  ACTIVATION  STACK  AND  FNL  USE  LIST 


FN  STACKCT 
FNSTACK  ; 
FNL LI  ST  : 
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*  * *  #  *  *  **  #  **  ***  #  *  * 


(************************** 
Jj  EAX59: 

( ********************  ****** 


BEGIN  (*  EAX59  MAIN  *) 


************  ******  **** *  *  *  **  ***  **) 

*) 

MAIN  DRIVER 


***  *******  ********  ****  *****  ***** j 


INITIAIIZE; 


REPEAT  (*  UNTIL  TCKNUM  =  ENDFILIOK  *) 


SCAN  (TCKNUM):  (* 

If  EBFORCT  =  0  TEEN  (* 
BEGIN  (* 

SETLINE  (LPCUR,  LP) 
CASE  TOKNUM  CF  ( 


SCAN  FIRST  WORD  OF  NEW  LINE 
PARSING  IS  DICONTINUED  AFTER 
FIRST  FATAL  ERROR  ENCOUNTERED 
;  <*  NEW  H  BASIC  LINE  NO  S  LINE 

*  RECURSIVE  DESCENT  PARSE  PRCC 


*  KEYWORDS  MARKED  IN  RIGHT  CMT  COLUMN  BY  ASTERISKS  MUST 

*  ALWAYS  RESULT  IN  A  PARSE  ERROR  IF  USED  AS  A  COMMAND 

*  (IE.  1ST  WORD  ON  A  LINE)  REGARDLESS  OF  IMPLEMENTATION: 

*  **  IMPLEMENTED  IN  THIS  SUBSET 

*  ***  not  IMPEMENTED  IN  THIS  SUBSET 


ERRORTOK 
CMTOKEXC 
2, 3, 4, 5. 6 
7.8,  9,  10,  1  1 
1$,13'  14 
15,16,  17,  1  8 


BEGIN  END; 

PREM; 

PERROR; 

PER  ROR; 
BEGIN  END; 
PER  ROR ; 


19 

20 
21 

22 

23 

CMTOK 

25 

26 

27 

28 

29 

30 

31,32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43,44 

46 

47 

48 

49 

50 

51 

52 

53 

54,55 


•  PIF  • 

I  FERVOR; 
:  FEE  ROR; 

:  FLET; 
REM  :  FREM; 

;  EFOR; 

:  FEND; 

:  FDEF; 

:  FERROR; 

:  PERROR  ; 

:  FERROR; 
:  FELSE; 

:  FGOTO ; 

:  ELOOP; 

;  FNEXT; 

:  FQUIT ; 

:  FSTOP ; 

:  EDATA; 

:  FREAD; 

:  FERROR; 

,45 

:  EENDIF  ; 
;  PFN END  ; 
;  EGO SUB  ; 
:  FINPUT; 
:  FUNTIL; 
;  FWHILE  ; 
;  FPA  USE  ; 
:  FPRINT; 
,56,57,58 


PSUBERROR 


FSUBERROR 

PSUBERROR 


PSUBERROR 


FSUBERROR 


*  SCAN  ERROR  * 

*  EXCLAM  * 

*  1-CHAR  SYMBOLS  * 

*  1-CHAR  SYMBOLS  * 

*  SCAN  ERROR  * 

*  2-CHAR  SYMBOLS  * 

(*  IF  * 

j  *  TO  **  * 

'*  OR  ***  * 

I*  ON  * 

(*  LET  * 

<*  REM  * 

f*  FOR  * 

(*  END  * 

*  DEF  * 

,*  not  **  * 

r*  dim  * 

*  AND  ***  * 

*  * 

I1*  then  **  * 

(*  ELSE  * 

r*  GOTO  * 

I*  LOOF  * 

i1*  NEXT  * 

(*  QUIT  * 

I*  STOP  * 

(*  DATA  * 

(*  READ  * 

i  *  STEF  **  * 

£  £ 

*  EN  DIF  * 

T*  FNEND  * 

f*  GOSUB  * 

(*  INPUT  * 

(*  UNTIL  * 

(*  WHILE  * 

r*  PAUSE  * 

(*  PRINT  * 


#  *  #  *  *  * 


5  9  :  EELSEIF; 

6  0  :  ERETURN; 

6  1  :  EOPTION; 

6  2,6  3 , 64 , 6  5,66  : 

67  :  PENDLOCP; 

68  :  PRESTO  HE; 

69,70,71,72  : 


IDENTOK  : 
NUMBERTOK  ; 
ENDLINTOK: 
ENDFILTOK: 


ENOLET 
PERROR 
GEN KEY 
GENKEY 


PSUBERROR; 


PSUBERROR ; 


(*  ELS  El  ?  *) 

*  RETURN  *' 

*  OPTION  *) 

*  * 

*  ENDLOOP  *' 

*  RESTORE  *' 

[*  * 

f*  NO  LET  *) 

*  NUMERIC  * 

*  BLANK  LN  * 

*  END  FILE  * 


END 

END 


(*  CASE 


UNTIL  1CKNUM  =  ENDFILTCK; 


GET  FNLS : 
ENDCPa.SEQP  : 
LPCURa).  IE1R  ; 


=  NEWCCDE  (-1 


GET  NEWHD^  (JlAXBASLl  N) 


(*  INSERT  LONG  FN  EODIES  * 
(*  CLOSE  CODE  SEQUENCE  * 
3LIN)  ;  (*  CLOSE  LINE  SEQ  * 


FINEGOSUBLEL  (EEGINCP)  ; 
IF  CPTEAR  THEN 

OSQPAREN  (BEGINCE); 

I?  CETNCE  THEN 

CSQNCE  f  BEGINCE)  ; 

RESCLVE  A  DDR  (EEGINCP)  ; 


REPORT  (LISTF)  ; 
REPORT  (OUTFILE); 
IF  CODUMP  THEN 

CCDEDUMF  (LISTF, 
IF  IINK59  THEN 
LINK  INTERFACE: 


EEGINC  E) 


INSERT  LABELS  FOR  S ER  *) 
OPTION  2  * 
OPTIMIZE  PARENTHESES  * 
OPTION  3  * 
OPTIMIZE  (OUT)  NOP'S  * 
OVERLAY  ABSOLUTE  ADDP  *) 


ERROR/REG/LBL  SUMMARY  *) 

OPTION  4  * 

WRITE  TRANSLATED  CODE  * 
CREATE  SCRATCH  FILE  * 
FOR  LINKER  INTERFACE  * 


DEEUGGING  TOOL;  DUMPS  EACH  SLOT  OF  EACH  BUCKET  IN  THE  * 

SYMBOL  TABLE  TO  NAME  FILE.  * 

IF  SYDUMP  THEN  (*  OPTION  5  * 

SYMTELDUMP  (LISTF,  BUCKET)  ; 


DEEUGGING  TOOL:  DUMPS  ENTIRE  CODE  DATA  STRUCTURE 

INCLUDING  LINE  AND  CODE  NODES. 

IF  DSDUMP  THEN  (*  OPTION  6 

SEARCH  (LIST?,  FIRSTLP) 


ND;  (*  EAX59  *) 

***************** c ********* ********************************  i 
******************  ********  ******************  ************  **\ 


APPENDIX  D 

RWT3LF  FILE--ORDERED  RESERVED  WORDS 


1 

i 

2 

— 

+ 

+ 

4 

— 

t; 

* 

6 

/ 

7 

( 

8 

9 

> 

10 

< 

1 1 

t 

12 

1 

1  2 

4 

14 

15 

** 

16 

<> 

17 

>  = 

18 

<  = 

19 

IF 

20 

TC 

21 

GR 

22 

CN 

22 

LET 

24 

REM 

25 

ECR 

26 

END 

27 

CEF 

28 

NCT 

29 

DIM 

30 

AND 

3  1 

MAT 

32 

USE 

33 

THEN 

34 

ELSE 

35 

GOTO 

36 

ICC  E 

37 

NEXT 

38 

QUIT 

39 

SIOE 

40 

DATA 

4  1 

READ 

42 

STEP 

43 

LOCK 

44 

CE5N 

45 

SOFT 

46 

ENDIF 

47 

FNEND 

48 

GCSUE 

49 

INPUT 

50 

UNTIL 

5  1 

WHILE 

52 

EAUSE 

53 

PRINT 

54 

CHAIN 

55 

ADMIT 

56 

CLOSE 

57 

GUESS 

58 

SLEEP 

59 

ELSEIF 

60  RETURN 

61  CETICN 
6  2  LIN  EOT 
6  3  S  EMC  VE 

64  RENAME 

65  RESUME 

66  UNLOCK 

67  ENDLOOP 
66  RESTORE 
6  9  SCRATCH 

70  TAGSORT 

71  ENDGUESS 

72  RANDOMIZE 


APPENDIX  E 

LABELF  FILE — TI-59  LAB ELS/HE S  EH V ED  REGISTERS 


KEY  CODES  FCP  TI-59  LABELS: 

11  12  13  14  15  1 6  17  18  19  10 

20  22  23  24  25  27  28  29  30  32 

33  34  35  36  37  36  39  42  43  44 

45  47  48  49  50  52  53  54  55  57 

58  59  6 C  61  65  66  67  68  69  70 

71  75  76  77  78  79  80  81  85  86 

87  88  89  90  91  93  94  95  96  97 

98  9  9 

REGISTERS  RESERVED  BY  USES: 

00  01  02  03  04  05  06  07  08  09  10 
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APPENDIX  F 

BIFNQF/BIFNLF  FILES — BDILT-IH  FD NOTIONS 


EUILT 

-IN 

"QUICK 

'  II 

ABS 

50 

68 

68 

6 

8 

ACOS 

27 

39 

68 

6 

8 

ASIN 

27 

38 

68 

6 

8 

ATN 

27 

30 

68 

6 

8 

COS 

39 

68 

68 

6 

8 

COT 

30 

35 

68 

6 

8 

CSC 

38 

35 

68 

6 

8 

EXP 

22 

23 

68 

6 

8 

FP 

27 

59 

68 

6 

8 

IP 

59 

68 

68 

6 

8 

LOG 

23 

68 

68 

6 

8 

LOG  10 

28 

68 

68 

6 

8 

SEC 

39 

35 

68 

6 

8 

SIN 

38 

68 

68 

6 

8 

SQR 

34 

68 

68 

6 

8 

TAN 

30 

68 

68 

6 

8 

FU  NOTION  NAMES  AND  TI-59  KEY  CODES: 


BUILT-IN  "LONG”  FUNCTION  NAMES  AND  TI-59  KEY  CODE  SEQUENCES 
PHD  36  15  10  43  10  36  15  15  36  15  71  88  68  68  68 


APPENDIX  G 

CTEXTF  FILE — TI-59  KEYCODE  TRANSLATIONS 


TI-59  KEY  CODE  TEXT 


nr 


-2 

0 

UNRESOLVED  ADER 

$$$$ 

-1 

0 

UNFILLED 

CODE  $$$$$$ 

00 

0 

0 

Cl 

0 

1 

C2 

0 

2 

03 

0 

3 

04 

0 

4 

C5 

0 

5 

06 

0 

6 

07 

0 

7 

08 

0 

8 

C9 

C 

9 

10 

0 

2ND  E* 

11 

0 

A 

12 

0 

E 

13 

0 

C 

14 

0 

D 

15 

0 

E 

16 

0 

2ND  A* 

17 

0 

2ND  E' 

18 

0 

2NE  C* 

19 

0 

2ND  C* 

20 

21 

0 

0 

2NE  CLR 
2ND  $$$$ 

ERROR 

$$X$$ 

22 

0 

ISV 

23 

0 

LNX 

24 

0 

CE 

25 

0 

CLH 

$$$$$ 

26 

0 

2ND  $$f$ 

ERROR 

27 

0 

2ND  INV 

28 

0 

2KE  LOG 

29 

0 

2NE  CP 

30 

0 

2ND  TAN 

31 

0 

LBN  (DEBUGGING 

TOOL) 

32 

0 

X<  =  >1 

33 

0 

X*  *2 

34 

0 

S£ET  (X) 

35 

0 

1/X 

36 

1 

2 NE  PGM 

37 

0 

2ND  P=> R 

38 

0 

2NE  SIN 

29 

0 

2XE  COS 

40 

0 

2NE  IND 

3$  $$$ 

41 

0 

SSI  3$$$ 

ERROR 

42 

1 

SIC 

43 

1 

RCI 

44 

1 

SUN 

45 

0 

Y**X 

46 

0 

INS  $$$$ 

ERROR 

$$$$$ 

47 

0 

2ND  CMS 

48 

1 

2ND  EXC 

49 

1 

2NE  PRD 

50 

0 

1  X! 

$$$$$ 

51 

0 

ESI  $$$$ 

SRROE 

52 

0 

EE 

53 

0 

< 

54 

0 

) 

187 


55  0  / 

56  0  DEL  SPSS  ERROR  $$33$ 

57  0  2ND  E MG 

58  0  2ND  FIX 

59  0  2ND  1ST 

60  0  2ND  DBG 

2  q^c 

62  1  2ND  PGM  2ND  IKD 

63  1  2ND  EXC  2ND  INC 

64  1  2ND  PRD  2ND  INC 

65  0  * 

66  0  2ND  PAUSE 

67  2  2ND  X=T 

68  0  2ND  NCP 

69  1  2ND  CP 

70  0  2ND  RAD 

71  2  SES 

72  1  SIC  2ND  IND 

73  1  RCL  2ND  IND 

74  1  SUM  2ND  IND 

75  0  - 

76  0  2ND  ISL 

77  2  2ND  X>=T 

78  C  2ND  SUMMATION 

79  0  X-EAE 

80  0  2ND  GRAD 

81  0  RSI 

92  0  SiS$  VOID  CODE  $$$$$ 

83  1  GTC  2ND  IND 

84  1  2ND  CP  2ND  IND 

85  0  + 

86  1  2ND  STFLG 

87  3  2ND  IFFLG 

88  0  2ND  D.MS 

89  0  2ND  PI 

90  0  2ND  LIST 

91  0  E/S 

92  0  INV  S3R 

93  0  . 

94  0  +/- 

95  G  = 

So  0  2ND  NRITE 

97  3  2ND  DSZ 

98  0  2ND  ADV 

99  0  2ND  PRT 
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APPENDIX  H 

MSGF  FILE — CROSS-COMPILER  OUTPUT  MESSAGES 


$  IS  THE  ESCAPE  CHAR  (MSG  DELIMITER)  FOR  THIS  MESSAGE  FILE. 
$1  $$3$$$$$$  $$$$$$  $$$$$$$$$ $$$$$S$$$S$S$S$$$$$$$$$33$SS3$3$$ 


$1 

32 


INVOKING  W  BA  SIC  CROSS-COMPILER  FOR  TI-59  PC 
EAX59  VERSION  1 . 0 


;$|$$$$: 


>$$$$ $$$$$$$$ $$$ 3$$$$$$$$ $$$$$$ 3$$$ S3 SIS 3S33SS 
1$ 3$ $3 $$$$$$$ $3$3$3$$$$S3$$$3$$3$33$ 3$$$ 333333 


H  B  ASIC  PROGRAM  LISTING 


$2  3 $3$$$ $$$$$$ $3$ $$$$$$ $3$ $$$ $ $$33$ $33 $$$$$$$$$$$$ $3$ $3S$$$ 
$3  $ $33$ I 3$ 3$$$$  $$$$$$$$  $$$$$$  5  3333$$ $$$$ 5$$$$$$$$$$$$ $$$$$$ 


CCMPILA TIC N  SUMMARY 


13 

54 


;$$$$: 

;$$$$: 


:$$$$$: 

;$$$$$< 


;$$$$$$ 

>$3$$$$ 


5$$$3$$$$$$$$$$$$$$$$$$$3$$$$$3$$ 

>$$3$$$3$$$$.s3$$$S 3$  3$$3$$$3  £$ 3$  $ 


COMPILATION  TERMINATES 


$4  *$ 3$  3$  3 «3 $$$$$$ $$$$$$$$$  $$$$$$$$$$$ S$$$$$$3$$$$$$$$$$$$$$ 
35  S$i$$$sl $£$$$$$ St $$$$$$ $3$$$$$$$$$ $3 $$$$$$$$$$$$ 33$ $$$$$$ 


TI-59  CODE  TRANSLATED  FROM  W3ASIC 
(UNS  EGMENTED) 


ACCR  CODE 

35  $3333 $3 3 $$$$$$$$$$3$$ 33$  $$$ 333333$ 3$ $3$ $$$$$$$$$$$$ 3 3$ $$$ 

36  $$$$33 33 33$ $$$$$$ 3$$$$$$  $$$$$$$$$$ $3 $$$$$$ 3$$$$$ 33$$$?$$$ 

0 - BEGIN  TI-59  CODE. 

$6  $3 3$ $3 3$ 33$ $$$$$3 $333  3$$  3$ 3 $33 $33$ 3  S$$$$3$$$$S$3$3$$33$$$ 
$7  i$$$$3$$$$$$$$$$3$$$$$$$$3$33$3$33  33$3$$$3$$33$$3$$$$3S$$ 
-1  -  END  TI-59  CODE. 

$7  3 $$$$$$$$ $$$$$$ $33333$$$ $33 3 $3$$$$ $  53$$$$$ $$$$$$ 33333$ $$$ 
$8  $$$$$$3$$$$ $$$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

TI-59 -iiGisTi5-TC_NAMi- MAPPING  ~ 


REG#  BASIC  NAME 

$8  $$$$$$$$$ $$$$$$ $33 $$$$$$ $$$$$$$3$$3S$$$$$$|$$$$3$|$3$3$| 
$9  $33$ 3 3 $$$$$$ $3$ $3  3 $$$33$  3$$ 3 $$$$$$$$$ $$$$? !$$$ 5$3$$ $3$$$ 


INPUT  DATA  TO  READ  MAPPING 


DATA  REG  NAME 
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J  9  $$$33  $?.$!$$  $3$$$  $$$«$$$;$  $S$3S3$$$$ S3 $$$$$$ $$$$$3333 3 *3333 
310  33333333 $$ 5$  3$  $33$ $3  33$ 3$$33$$53$333333$333$3333333333£3 


T 


P 


I 


B 


» 

I* 

h 


r 

I 


fcl 

t* 

r 

i 

> 

r 

t", 

i' 

t 


APPENDIX  I 
LINKER  SOORCE  CODE 


(** 

(* 

r* 

* 

* 

* 

* 

* 

* 

<* 

■* 

* 

* 

* 

* 

* 

* 

* 

** 


*  ** 1*********  *.v*  ******  *** 

PURPOSE:  THIS  PROGRAM  TA 
II  SEGMENTS  THE 
INTO  THE  TI-59 
CODE  LISTINGS  A 
COMMENT:  PROGRA 
LIMIT 
ALGORI 
COMMENT:  FILEDE 
CONSEQ 
IN  THE 
FOLLOW 


****************  ******** 


******************  ******  ******  ** 

KES  AS  INPUT  A  TI-59  PROGRAM.  * 
PROGRAM  SO  THAT  IT  WILL  FIT  * 
CALCULATOR.  INSTRUCTIONS  AND  * 
RE  PROVIDED  AS  OUTPUT.  * 

M  MAY  LOOP  INFINITELY  IF  SMALL;* 
IS  USED  BECAUSE  OF  DIVIDE  * 

THM .  * 

FS  WERE  USED  FOR  THIS  PROGRAM  *, 
UENTLY  THEY  WERE  NOT  DEFINED  *1 
PROGRAM.  SPECIFIC  FILEDEFS  * 

:  SCRATCH — "SCRATCH  PASCAL"  * 
PASSED  FROM  COMPILER  * 

OUTFILE — "ANY  DESIRED  NAME"  * 
YOUR  OUTPUT  FILE  * 

TEMPFILE—  "ANY  DESIRED  NAME"  * 

A  TEMPORARY  SCRATCH  PAD  * 

MESSAGEFILE--MESSAGEFILE  FILE* 
LINKER'S  MESSAGES 
******************  ************  ** j 


BT 


PROGRAM  TSCRIVER  (INPCT, OUTPUT)  ; 

^**  **  *********  *  ***  ******  **  ***********  ********************  **) 
(*  DECLARATIONS:  *) 

^ *****************  * ********  ******************  ************  ** j 

<5 


*. 
ONST 


-*) 


FJUMPCONST  =  10; 

(* 

NUM 

STEPS 

FOR 

F  JUMP 

CODE  *) 

SERCCNST  =  15; 

* 

NUM 

STEFS 

FOR 

S'BR 

ERK 

C  C  D  E* ) 

S  ERCC  NTCONST  =  7; 

(* 

NUM 

STEPS 

FOR 

SBR 

BRK 

RTN  *) 

STO  =  42; 

LEL  =  76; 

RCLINC  =  73; 
STOIND  =  72; 

CP  =  69; 

DECIMAL  =  93; 

RS  =  91 ; 

CE  =  24; 

CISPIAYREGSTORE 
ETNREGNUM  =  6; 

M  AN  RT  NR  EG  =  08; 

NCNE  =  10  1; 

ASTER  =  102; 

YES  =  103; 
MCDPFCMETS  =  100; 
R  TNRGTOP  =  104; 
CCDENUM  =  0: 
SIOINRG  =  105; 
PGMPARTIS  =  106; 
PARTNUMIS  =  107; 
MCDN  =10  8; 

CARD  1  =  109; 

CAR  C2  =  110; 


(*  TI59  KEYCODES  *) 


(*  END  KEYCODES  *) 

00;  (*  TEMP  STORE  OF  THE  DISPLAY  * 

(*  NUMBER  OF  MANUAL  RETURN  REGISTERS  * 
(*  MANUAL  SER  RETURN  REGISTER  * 


(*  SEE  MESSAGEFILS 


(*  MESSAGE  NUMS*) 
FOR  TRANSLATICN  *) 


19  1 


1.1 


m 

m 

las 

i2-2 

I- 

li. 

lllffl 

1 

1 1.8 

4  II 

1 1.6 

1 

MICROCOPY  RESOLUTION  TEST  CHART 
NATIONAL  BUREAU  OF  STANDARDS- 1963-A 


SIDE  1  =  11  1 
SIDS2  =  112 

• 

* 

• 

EAXINSTR  = 

81 

SPECIFICS  = 

82 

ENDLEL 

83 

F  AILINSIR  = 

84 

U  NSEGCOCLBL 

S 

F  SEQ  =  6 

PKANRTN  =  7 

PFWDJ  =  8 

PSERINV  =  9 

REGMAF  =  3 

l; 

CATAREAE  = 

RGCT  = 

1  : 
9§; 

ALPHALBL  = 

(*  end  message  nums 


LABELS  =  PACKED  ARRAY  (.1  ..  15.  )  OF  CHAR; 

TYPELABELS  =  ARRAY  (.0..99.)  OF  LABELS;  (*  TI59  KEYS  * 


CODEFTR  =  ®CODESCE;  (* 

CCCERCD  =  RECORD 

AA  DD  B :INTEG  ER ; 
MEMNUM:INTEGER; 
BADD  F : INTEG ER; 
KEY; INTEGER  ; 
JMP: CCDEPTR  ; 

SEQ ; CCDEPTR ; 
END; 


INSTE  SET  =  SET  CF  0 


(*  THIS  RECORD  IS  BUILT_COCE  *) 


(*  SHOULD  HAVE  MADE  A  VAEI  * 


(*  RANGE  INSTRUCTION  SET* 


NCDE  =  (TABLE.  SBEPTR,SBRBREAK,FWD  JUMP  ,MEMODULE, CODE)  ; 
IELPTR  =  3NODES; 

NODES  =  RECORD 

CASE  TAG;  NODE  OF 

TABLE:  (NEST;  INTEGER; 

START  ADDR:INT5GER; 

STOP  IDDR: INTEGER; 

LENGTH:  INTEGER  : 

INCLUDED:  BOOLEAN; 

COALESCED:  BOOLEAN; 

S3RL 1ST: IBLPTR  ; 

NUM  F:  INTEGER; 

F  JllMPLIST:TBLPTR; 

TI3LELIST:T3LPTR) ;  (*  NEXT  TABLE  *) 


SBRFTR:  (SBR:  TBLPTR; 

FROM: INTEGER : 

NEXT_SBR:TBLPTR)  ;  (*  NEXT  PTR  *) 

HEMODOLE: ( MEM NUM:INT EGER; 

OFFSET:INTEGER; 

HIGHOFFSET: INTEGER; 

LO WOFFS ST  : INTEGER  ; 

RETURNCODE  NEEDED :300LEAN: 
SEGTBLS:  TBIPTR:  (*  TABLE  *) 

CODELIST: TBLPTR; 

NEXT :  TBLPTR)  ; 


2ND; 


CODE:  (ADDRESS:INTEGER: 

ASS  ADDR:  INTEGER ; 

KEYCODE: INTEGER; 

SEQU  ENTIAL:  T3LPT  R)  ; 

SBREREAK:  (  SBRZ:  TBLPTR)  ; 

FWD  JUMP:  (JUMP  ADDRFR:  INTEGER; 

JUMF“ADDRTO:  INTEGER; 

JUM  P“  ADDR  TO  1  :  INTEGER  ;  (*HUNDREDS* 
JUMF"ADDRT02  :  INTEGER;  (*TEN/UNIT* 
MEM  3DDR:  INTEGER;  (*MEMNUM* 

JUMP  INTADDRTOI  :IN7EGSR;  (*LOCAL* 
JUMF“INTADDRT02: INTEGER; 
NEXI"FJUMP:  TBLPTR)  ; 


(*  SEGMENT  TABLE  STRUCTURE  * 


C  UTFILE :  TEXT : 
TEMFFILE.-TEXT; 
SCRATCH :  TEXT  : 
MESSAGEFILE:TEXT  ; 


(*  OUTPUT  FILE  * 
(*  NEST  DIAGS  TEMP  FILE  * 
(*  INFORMATION  FROM  COMPILER  FILE* 
(*  MESSAGE  INPUT  FILE  * 
— - — - — - — - — - - -* 


PARTITION:  REAL;  (’ 

REGCCUNT :I  NT  EGER  ; 

GOOD  SEGMENT  :BOOIEAN  ; 
SERIPVNEST:INTEGER: 

NUMBANKS ,P AR I  NUM :INTEG  ER ; 
LIMIT.-INTEGERT 


(*  CALCULATOR  PARTITION  INFO  *) 


(*  SBR  NEST  LEVEL  CHECK  *) 
(*  MEMORY  SIZE  LIMIT  * 


EUILT  CCDErCURCP:  CODEPT  B  ; 
EUILT”CCDE  COUNT -.INTEGER; 
HDRPTP,  SEGTBL:  TBLPTR  ; 


(*  CODS  TBL  VARS*) 
(*  TABLE  VARS  * 


STEP  OrSTEP  1,  ST  SP  2, STEP  3:  INSTR  SET;  (*  INS  SET  VAR  * 


TILEL:TYPELAEELS 


(*  PROGRAM  LAEELS 


*  #  *  * 


********************************************************** 

*  PROCEDURES  AND  FUNCTIONS:  * 

********************************************************** 


FOLLOWING  ROUTINES  ARE  USED  AS  UTILITIES  SUCH  AS  PRINT 
AND  SCRATCHFILE  AND  MESSAGE  FILE  MANIPULATORS 


(* - - 

(*  DUMP  SEGTBL: 
(*  ANT  IS  NOT 


DUMPS  THE  SEGMENT  TABLE. 
CALLED  IN  THIS  PROGRAM. 


USED  FOR  DEEUG 


PROCEDURE  DUMP  SEGTELfVAR  OUTFILE:  TEXT ;  HDRPTR  :  T3LPTR)  ; 
VAR  F  JMPUNK7SBRLINK,SB  R , CURTP, S B RTP: T BLPTR ; 

BEGIN" 

S3RTE:  =HD  RPTR  ; 

WHILE  SERTP  <>  NIL  DO 
BEGIN 

WRITELN  (OUTFILE)  ; 

SRITELN  (OUTFILE)  ; 

WRITELN  (OUT  FILE  ,'  =  ==========  =====  =========  =  ==  =  == 

WRITE  (OUTFILE,*  SB  R  CODE  NUMBER  »); 

SRITELN  (OUTFILE, SBRTPa).  STOP  ADDR :  2)  ; 

WRITELN  (OUT  FILE  .  *  =  =========  ===================  == 

CURTP:  =  SBR  TP2.TABL  ELI  ST; 

WHILE  CURTP  <>  NIL  DO 
EEGIN 

DO 


')  : 
') ; 


WITH  CUETPS 
BEGIN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 


«*) 


OUTFILE)  : 

OUTFILE,  ’NEST'  ,  NEST:  3)  ; 

OUTFILE, •START* , START  ADDR  ^ 
.OUTFILE,  'STOP*  .STOP  AT3DR.-4)  , 

WRITELN  (OUTFILE,  'LENGTH*  ,  LENGTH:  5) 

END; 

SBR  LI  NK  :  *CURTP  3.  SERLIST ; 

F  J  MPLI N K:  =  CUR TP3 . F  JUMPLIST; 

WHILE  (SERLI  NK  <>  NTL)  OR  (F_  J  MPLINK  <>  NIL)  DO 
B  EG  I N 

IF  SERLINK  <>  NIL  THEN 
BEGIN 

SBR:  =  S  ERLINK3.  SBR; 

CASE  S  BE3.TAG  OF 
TABLE:  SBR  :=S  3R; 

SBRBREAK: 

BEGIN 

SBR : =SBR3 .  SBR  Z; 

WRITELN (OUTFILE,****  BREAK  ***•); 
EN  D; 

END; 

WRITE (OUTFILE. ' SBR  INVOKE  FROM', 
SBRLINKa).  FROM  :5  ,  •  TO  '  , 

SEES. START  ADDR : 5. '  *** 

SBRLIN K: =SBRLINK3. NEXT  SBR; 

END  "  ' 

ELSE 

WHITE  (OUTFILE,  ' 

W  RITE  (OU  T  FILE , '  ***  ')  ; 

IF  F  JMPLINK  <>  NIL  THEN 
B  ET3IN 

WRITE  (OUTFILE,  '  JUMP  FROM  ', 

F  JMPLINK3.  JUMP  ADDRFR; 

F"J UPLINK  3. JUMP" ADDRTO: 


) 


I' 


F  JMPL  IHK  :  =  F  JMPLINK37NEXT  FJuSlj; 
END? 

WRITELN  (OUTPILE)  ; 

END; 


) 


TC 
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*  *  *  *  *  *  *# 


C  URTP  :  =  C0RTP3).  TABLELIST; 

END; 

SBRTP:  =SBRTFa.SBRLIST; 

E  * 

(*  DUMP  SEGTBL  TEST  ROUTINE  * 


*  DUMF  MEMODULENODES:  PRINTS  OUT  THE  CONTENTS  OF  THE 

*  MEHODUL  ENODE  LIST  FORMED.  THIS  IS  A  DEBUGGING 

*  ROUTINE  AND  IS  NOT  INVOKED  IN  THE  PROGRAM. 


ROCEDURE  DUMP  MEMOEULENO  DES  (HEAD  MEMODULE:  TBLPTR)  ; 

VAR  S:TELPTR7 
BEGIN 

S  :  =  HE AD  MEMODULE; 

WHILE  SO  NIL  DC 
EEGIN 

WITH  S2  DO 
EEGIN 

WRITELN  (OUTFI  LE)  : 

WRITE  (CUTFILE.  •  McMNUM  OFFSET  HIGH  LOW*); 
WRITELN  (OUTFILE,  •  SSGT  3LSTART*  )  : 

WRITELN  (OUTFI LE.MEMNUM: 6, OFFSET :8 . HIGHOFFSET: 6 
,LOWOFFSET:5,  SEGT3LS2.  START  ADDR :  1  0)  ; 
WRITELN  (OUTFI  LE)  ; 

END; 

S:=Sa>.  NEXT; 

END; 

END;  (*  DUMP  MEMODULNOCES  *) 


(*  WRITE 

IEADZERO 

;*  ZER 

0 

s 

PROCEDURE  WRITE  LE ADZERO (VAR  OUTFI L 2; TEXT ; NUM , FLD : INT EG ER) 
VAR  I,  IN  :  INT  EGER  ; 

BEGIN 

TN:=NUM; 

REPEAT 

IN :=TN  DIV  10; 

FLD;  =FLD-  1; 

UNTIL  (TN  =  0)  ; 

FOR  I:  =  1  TO  FLD  DO 
WRITE  (OUTFILE  ,'0*  )  ; 

WRITE  (CUTFILE,  N0M;1)  ; 


WRITE  (CUTFILE 
END; 


(*  WR IT E_LE ADZERO  * 


' 


tF 


(* . - . - . - . . . * 

(*  WRITELEL:  WHITES  OUT  THE  11-59  CODED  LABELS  * 

* - - - - * 

PROCEDURE  WRITELBL  (TAR  0  UTFILE :TEXT;  CODES S : INT EGER) ; 
EEGIN 

WRITELN  (OUTFILE, TILBL  (.CODESS.  )  )  ; 

END;  (*  WRITELEL  * 

(* - * 


*  - -  — - - - - —  —  *  i 

*  WRIT ECCDES  :  WRITES  THE  ADDRESS  AND  KEYCODE  TO  LINE  *'i 

*  - — - — - — - — - - - - -  — - * 

PROCEDURE  WRITECODES  (VAR  OUTPILE:  TEXT ;  CUR  :CODEPTR)  ; 

EEGIN 

WRITE  LEAEZERO(OUTFILE,CURa>.  A  AD  DR,  3)  ; 
WRITE70UTEILE.  '  •); 

WRITE  LEACZERO  (OUTFILE  .CUP.3.  KEY, 2)  ; 
WRITElOUTFILE,'  •)  ; 

END;  (*  WRITECODES  *j 


[* - - - *) 

*  WRITENUH:  WRITES  KEYC  DE  AS  A  NUiBER  HOT  A  LAEEL  *) 

—  -  — - - — — - - - - —  — - — — * ) 

Procedure  writenum<var  ootfile: text,*  cur:codeptr)  ; 

BEGIN 

WRITE  LEADZERO  (OUTFILE, CURa>. KEY, 2)  ; 

END;  “  (*  WRTTENUM  *) 

[* . . . . — . . 


—  -  -- — - -  __ ------- - * 

'*  HANDLE  #STEPS ;  ERINTS  OUT  DIFFERENT  CASES  OF  CODES,  *' 

*  EG.  "WHETHER  ONE  OR  TWO  STEP  INSTRUCTION.  * 

*  USED  FOR  CODEPTR  TYPE  OF  NODES.  * 

*  - * 

PROCEDURE  HANDLE  OSTE?  (VAR  OOTFILE:  TEXT; 

VAR  CUR:CODEPTR)  ; 

EEGIN 

WRITE  (0  UTFI  LE  , '  •  )  ; 

WRITECODES  (CUTFILE  , CUR)  ; 

WRITE  (OOTFILE,  '  '); 

WRITEL3L(0UIFILE,CURa>.  KEY)  ; 

END; 


PROCEDURE  HANDLE  1STEP(VAB  OUTFILE : TEXT; 

VAR  CUR: CODEPTR) ; 

BEGIN 

CUE  :=CURd.  S  EC; 

WRITS  (OUTFILE,'  •); 

WRITECODES  (CUTFILE  , CUB)  ; 


a—  iwwx*.  a.  i-  • 

WRITECODES  (CUTFILE  , CUB)  ; 
WRITE  (OUTFILE,'  *); 

WRITS  NUJ1( OUTFILE, C  UR)  ; 
WRITELN  (OUTFILE) 

END;  (*  HANDLE  1ST  EP  *) 
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*  *  *  * 


PROCED  ORE  HANDLE  2STEP  (VA3  OUTFILE:  TEXT; 

V A 8  CUR:  CODEPTR)  ; 

VAR  IsINTEGER; 

BEGIN 

FOR  I := 1  TO  2  DO 
BEGIN 

CUR  :=CUR2.S  EQ; 

WRITE  (OCTFILE,  »  *): 

WRITE CO  EES (OUT  FILE, CUR)  ; 

WRITE  (OUTFILE,  •  •)  ; 

W  RITE  NUE  (OUTFILE,  CUR)  ; 

WRITELN  (OUTFILE)  ; 

END  ; 

END;  (*  HAN  DLE_2ST  EP  *) 

EROCEDURE  HANDLE  3STEP(VAR  OUTFILE: TEXT; 

VAR  CUR:  CODEPTR)  ; 

VAR  I: INTEGER ; 

EEGIN 

ECR  I :  =1  TO  3  DO 
BEGIN 

CUR:  =  CUR5).  SEQ  ; 

WRITE (CUTFILE,1  *)? 

WRITECCCES  (OUTFILE,  CUR)  ; 

WRITE  (CUTFILE,  '  *); 

WRITENUH(OUTFILE,CUR)  ; 

WRITELN  (OUTFILE)  ; 

END  ; 

END;  (*  HANDLE  #STE?  * 

(* - ‘ - * 


-* 

* 

* 


PRINT  CODELIST:  PRINTS  OUT  THE  TI-59  CODE  FOR 
CODEPTR  NODES  ONLY. 


■  -* 


Procedure  print  cocelist(var 

VAR 

VAR  CUR  :  CO  D  EPTR  ; 

BEGIN 

CUE;=EUILTCODE: 

WHILE  CUR  <>  NIL  DO 
EEGIN 

HANDLE„OSTEE  (OUTFILE 


OUTFILE: TEXT; 

BUILT  CODE:  CO  DEFT  R) 


,CUR) 


END 


- -  f 

IF  CURaS.KEY  IN  (.71,76.)  THEN 
BEGIN 

CUR:=CUR a).  SSQ  ; 

HANDLE  OST  E?  (  CUT  FILE,  CU  R)  ; 
END 
ELSE 
EEGIN 

IF  CURE. KEY  IN  STEP  1  THEN 
HANDLE  1STEP  (OUTFILE, CUR) 
IF  CUR  a.KEY  IN  STEP  2  THEN 
HANDLE  2STEP  (OUTFILE, CUR) 
IF  CURE. KEY  IN  STEP  3  THEN 
HANDLE  3STEP  (OUTFILE, CUR) 

EN  D : 

I?  CUR  <>  NIL  THEN 
CU  R  :  =CUR 3.  SEQ; 

END; 


(*  PRINT  CODELIST  * 


(* . — . * 

(*  FISC  MSG:  SEARCHES  INPUT  FILS  TO  FIND  MSG  NUMBER.  * 
>* - - - * 

PROCEDURE  FIND  MSG  (VAR  ME SSAGEFILS : TEXT;  MS G: INT EGER)  ; 

VAR  Cl :CHAR;“DIGIT:INTEGER ; 

BEGIN 

RESET  (MESSAGEFILE)  ; 

Cl  :=•  •; 

DIGIT :=-1 ; 

REFEA T 

~EEAD  (MESSAGEFILE, Cl  )  ; 

IF  Cl  =  THEN 

P.EADLN  (MESSAGEFILE,  DIGIT) 

ELSE 

READLN  (MESSAGEFILE)  ; 

UNTIL  ((C1='S')  AND  (  DIGIT=  MS G)  )  ; 

END;  (*  FIND  MSG  * 

(*-- . - . . “ - * 


*  - - —  - —  - - - - -  -*  \ 

*  INI!  SETS:  INITIALIZES  IMPORTANT  DATA  SUCH  AS  KEY-  * 

*  cell  LABEL  ARRAY,  STEP  SETS,  KEY  VARIA3L3S  AND  * 

*  INIIALIZES  THE  SCRATCH  FILE  *) 

*  - — - - - — - — - *{ 

ROCEDUEE  INI  T  SETS  (VAR  T EMP FILE: TEXT :  VAR  STEP  0,STEP  1. 

STEP  2, STEP  3TINSTR  SET; 
VAR  GOOD  SEGMENT:  BOOLEAN  ;  VIE  ME SSXG EFILE : TE XT ; 
VAR  TILBl:TYPELABELS;  VAR  SBRINVNEST  :  INTEGER)  ; 
VAR  C  :CHAR  ; 

DIGIT,  J,L,K,  I  .-INTEGER; 


-  --------- — - - - -  - — 

*  GET  REGCOUNT:  GOES  TO  SCRATCH  PILE  AND  FINDS  THE  * 
(*  MESSAGE  NUMEER  CONTAINING  THE  REGISTER  COUNT  * 

|  * - - —  - - - - ________  — - ...4c1! 

PROCEDURE  GET  REGCOUNT (VAR  REGCOU NT : I NTEG ER) ; 

BEGIN 

FIND  MSG  (SCRATCH  ,RGCT)  ; 

BEAETN  (SCRATCH, REGCOUNT)  ; 

END;  (*  GET  REGCOUNT  *) 

(*- . . . - . . . . r- . — * 

EEGIN 

SBRINVNEST  :  =  0  ;  (*  INITIALIZES  THE  INVOKE  NEST  CHECK  *) 


RESET  (MESS  AGEF3LE)  ;  (*  INITIALIZE  TILA3ELS  *) 

DIGIT :=-  1  ;  (*  LABELS  IN  MESSAGEFILE  *) 

L:  =  1; 

REPEAT 

READ  (MESSAGEFILE  ,C)  ; 

IF  C  s  'S'  THEN 

READLN  (MESSAGEFILE, DIGIT) 

ELSE 

READLN  (MESSAGEFILE)  ; 

UNTIL  (C  =  '$■)  AND  (DIGIT  =  ALPHAL3L)  ; 

L :  =  0  * 

FOR  I:  =0  TC  ALPHALBL  DO 
EEGIN 

IF  NOT  (I  IN(. 21, 26, 31, 41, 46, 51, 56, 82. )  )  THEN 
EEGIN 

READ  (MESSAGEFILE, TILBL  (. I.  )  )  ; 

L : =L  +  1 ; 

IF  L  =  4  THEN 
EEGIN 

READLN  (MESSAGEFILE)  ; 

L :  =0; 

END  ; 

END 


198 


*  *  #  *  * 


TIL BL  (.  I.  )  :*  '  3L  ANK 


END; 

GET_REGCOUNT  (SEGCOUNT)  ; 

REWRIIE(TSMPFILE)  :  (*  OPENNING  AND  MASKING  *) 

W3IIELN(TENPFILE,*$9'  )  ;  (*  THE  TEMPFILE  WITH  MSG  9  *) 


FEHRITE(OUTFILE)  ; 
GOCE_SEGMENT:  =  TRUE; 


(+  INI  I  OUTPUTFI LZ  *) 


STEP  3;=  (.  87, 97.)  :  (*  STEP  TYPES  OF  INSTRUCTIONS  *) 

SIEF“2:=  (.  61,61,1*/.)  : 

STEP“1:=  (.  36,4  0,42  ,4  3  ,44  ,48,49, 58,62,63,64,69,72,  73 ,7< 

“•  n  n  n  1 1  n  f  \ 


,  83, 84,86  .)  ; 

STEF_0:  =  ( .  0.  .  9  9.)  -  (ST  E?_ 3+STEP_2+5T Z?_ 1 )  ; 


(*  INIT  SETS  * 


ADVANCE  CODSPTF. :  MOVES  ALONG  CODE  SKIPPING  1,  2,  OS  3* 
STEP  INSTRUCTIONS  AND  STOPS  ON  NEXT  COMMAND  INSTR. 
TREATS  71  AND  76  AS  SINGLE  STEPS. 

PROCEDURE  ADVANCE  CCDEPTR  (V  AR  CUR:  CODEPTR)  ; 

VAR  L  :  INTEGER;  “ 

BEGIN 

IF  CUSS.  KEY  IN  STEP  3  THEN 
EEGIN 

FOR  L: =  1  TC  4  DO 

IF  CURd) .SEQ  <>  NIL  THEN 
C  UR : =  CUSS. SE  Q 
I8D 

^“iF  CURS  . KEY  IN  STEP  2  THEN 
BEGIN 

FOR  L:=  1  TO  3  DO 

IF  CUR  a. SEQ  <>  NIL  THEN 
CUR  :  ■=CURa).  S  EQ 

END 

ELSE 

IF  CURS. KEY  IN  STEF  1  THEN 
EEGIN 

FOR  L ; =  1  TO  2  DO 

IF  CUES.  SEQ  <>  NIL  THEN 
CUE:=CURS  .  SEQ 

END 

ELSE 

IF  CURS  .SEQ  <>  NIL  THEN 
CUR:  =  C  URS.  SEQ  ; 

END;  (*  END  ADVANCE  CODEPTR  * 


•TV 


#  * 


nr 


*  PRINTLN  MSG  :  PRINTS 
**  TC  ANOTHER  FILE. 

*  WHOLE  MESSAGE  AND 
’*  AT  THE  END  OF  THE 


A  SPECIFIC  MSG  FROM  ONE  FILE 
THIS  ROUTINE  WILL  TAKE  THE 
PRINT  IT.  IT  EXECUTES  A  WRIT: 
PRINT 


- *) 

* } 
i 

:ln  * 


!ROCEDURE  PRINTLN  MSG(VAR  OUTFILS,  MESSAGEFILE'.TEXT; 

MSG:  INTEGER)  ; 

VAR  ClrCHAR; 

EEGIN 

FIND  MSG  (MESS  AGEFIL2,  MSG)  ; 

READ7MESSAGEFI1E,C1)  ; 

WHILE  CIO'S*  DO 
BEGIN 

WRITE (OUTFITS, Cl)  ; 

WHILE  NOT  ECLN  (ME  SSAGEFILE)  DO 
BEGIN 

R  EAD{  MESS  AGE  FILE  ,C  1)  ; 

WRITE  (CUTFIL  E  ,  C  1)  ; 

END; 

READLN  (MESSAGEFILE)  ; 

WRITELN(OUTFILE)  ; 

READ  (MESS  AGEFILE,  Cl)  ; 

END; 

END;  (*  PRINTLN  MSG 

(* - - - r-  — 


-:j 


’  *  - 

(*  PRINT  TIN  E  MSG :  PRINTS  A  SPECIFIC  ONE-LINE  MESSAGE 

*  TC  •ANOTHER  FITE.  DOES  NOT  WRIT ELN  TO  FILE. 

*  USED  FOR  LINS  LABELS  OF  GENERATED  DATA. 

'RCCEDURE  PRINT  MSGIINE1(VAR  OUTFILE, MESSAGEFILE: TEXT  ; 

MSG:  INTEGER)  ; 

VAR  Cl:  CHAR; 

EEGIN 

FIND  MSG  (MESSAGEFILE,  MSG)  ; 

READ7MESSAGEFILE,C1)  ; 

WHILE  CIO'S'  DC 
EEGIN 

WHITE  (OUTFITS,  Cl)  ; 

READ  (MESSAGEFILE, Cl)  ; 

END; 

END;  (*  PRINT  MSGLINE 

(* - - - - - r - 


I! 


♦  j 
-* 


CET  LIMIT;  DETERMINES  MEMORY  LIMITS  BASED  ON  REG  CNT .  * 
C3LY  THREE  PARTITIONS  WERE  CONSIDERED.  THIS  WAS  * 
BECAUSE  ANY  OTHER  PARTITION  SPLITS  THE  SIDE  * 

OF  A  MAG  CARD  EETWEEN  REGISTERS  AND  PROGRAM.  * 

THIS  WOULD  CHANGE  REGISTERS  DURING  REPROGRAMMING  * 
AND  IS  THEREFORE  UNACCEPTABLE.  * 

- *j 

PROCEDURE  DET  LI  MIT  (VAR  R EGC OUN T, L IMIT , N UM3 ANKS . 

PART  NUM:  INTEGER; 
VAR  PARTITION:  REAL)  ; 

BEGIN 

IF  REGCOUNT+RTNREGNUM  IN  (.0..29.)  THEN 
EEGIN 

NUMBANKS:  =  3: 

PARTITION:  =719.29  ; 

PART  NUM:  =  3; 

LIMIT;  =719; 

END 
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I F  REGCOUNT  +  RINREGNUM  IN  (.30. .  55.)  THEN 
BEGIN 

NUMBANKS  :  =  2; 

PA  RT  IT  ION:  =4  79.  59; 

PART  NUM:=6; 

LI  HIT:  =  4  79; 

END 

ELSE 

EEGIN 

NUMB  ANKS  :  =  1: 

PARTITION:=239.  89; 

PART  NU M  :  =9 ; 

LIMIT:  =  239; 

END; 


(*  DET  LIMIT  * 


*  CLEAN:  REMOVES  SAME  F  JUMPS  AND  SAME  SBRS  IN  A  SEG 

*  TEL  NODE.  ALSO  GIVES  DELETE  COUNT  FOR  F  JUMPS 

*  INCLUDED  IN  THE  CONFINES  OF  THE  S EGMENT. “DOU BLE 

*  DUTY  ROUTINE.  USED  BY  COMBINE  AND  BY  SET  LENGTH 

*  - - - - - —  -  - - 

ROCEDUSE  CL  EAN  ( V  A  R  CURT?  :  TBLPT  R;  VAR  DELET  E:  INT  EGER) 
VAR  F,S:TBLPTH; 


*  PRUNE  SAMEF:  REMOVES  SAME  FJUMP  ADDRESSTO  FROM  TEL  * 

*  - r - * 

PROCEDURE  PRUNE  SAMEF  (V  AR  F:  TBLPT  R)  ; 

VAR  T  ,  S:  T  BLPTt? ; 

BEGIN 

WHILE  FS.NEXT  FJUMPONIL  DO 
BEGIN 

S:  =F3.  N  EXT_FJUM  P; 

.  p  « 

WHILE  (SONIL)  DO 

IF  S3. JUMP  ADDRTO  =  Fa). JUMP  ADD3TO  THEN 
BEGIN 

T3.NEXT  FJUMP:  =  Sa>.  NEXT  FJUMP; 

DISPOSETS  ,FWD  JUMP)  ;  “ 

S : =T3. NEX T  FJUMP 
END 
ELSE 
BEGIN 


T : =13. NEX  T  FJUMP; 
S  :  =S3.  NEXT"F  JUMP; 


END; 


1.11  U  m 

IF  F3.NSXT  FJUMPONIL  THEN 
F:=F3.NE7T  FJUMP; 

END; 


(*  PRUNE  SAMEF  * 


it 


*  #  * 


PRUN  E_GRE  AIOR :  REMOVES  FJUMPS  CONTAINED  IN  SZGTBL 

BCCEEUR2  PRUNE  GREATOR  (VAR  F ,  S: T3LPTR ; 

VAR  DEL  ET  E:  I  NT  EGER)  ; 

BEGIN 

WHILE  FONIL  DO 
BEGIN 

IF  F2.JUMP  ADDRTO<=CURIP2.STOP  AD  DR  THEN 
BEGIN 

So). NEXT  FJUMP:=Fo).NEXT  FJUMP; 

CIS  POSETF,  F  WD  JUMP);  “ 

F:  =  S2.NEXT  FJUMP; 

DELETE:=  DEllETE  +  1  ; 

END 

ELSE 

BEGIN 

S:  =  S2.  NEXT  FJUMP; 

F:  =  F2 .NEXT” FJUMP 
END; 

END; 

IF  CURTP3.F  JUMPLIS  T2.  JUMP  ADDRTC<=CU  RT  Pa) .  STOP  AD  DR 

THEN 

BEGIN 

F:  =C  URTP2 .  F  JUMPLIST; 

CURTP3.F  JUTfPLIST:  =F3 .NEX  T  FJUMP; 

DISPOSE  (?,FWD  JUMP); 

DELETE :  =  C  ELETU+  1 ; 

END; 

END;  (*  PRUNE  GREATCR  * 


*  PRUNE  SAMES:  REMOVES  SAME  SBR  INVOKES  FROM  SEGTBL 


*  PASS  3R  K:  PASSES  OVER  THE  SBR  EREAK  NODE 


UNCTION  PASS  EFK  (  F:  T  ELP IR)  :TBL?TR; 

EEGIN 

CASE  Fa).  T  A  G  OF 

SBRBREAK:  PASS  BRK  :  =  F2.  SBRZ  ; 

TABLE;  PASS  BRK  :  =  F; 

END; 

END;  (*  I 


(*  PASS  BRK  * 


WHILE  FONIL  DO 
EEGIN 

S:  =  F2.  NEXT  SBR; 

IF  SONIL  THEN 
BEGIN 

FF: =PASS  BR  K  (F2.  SBR)  ; 

SS:  =PASS“BRK  (S3.  SBR)  ; 

END; 

WHILE  (SONIL)  DO 
IF  SS  =  FF  THEN 
BEGIN 

T3.NEXT  S  ER : =S3 .NEXT  SBR 
DISP0SE7S  .SERPTR)  ;  “ 

S ; =T3. NEX  T  SBR; 

IF  SONIL  THEN 

SS:  =  PASS  BRK  (S3.  SBR)  ; 


S 


*  *  * 


#  #  *  *  * 


ELSE 

EEGIN 

T:  =T5 ).  NEXT  SER; 

S  :  =  S3.  NEXT'SBR  ; 

IF  SONIL  THEN 

SS:=PAS  S  BRK  (S3. SBR) 
END  *  ~ 

F:  =F3.  N$XT  SBE; 

END; 

END  ; 

<♦ . . . . . 

BEGIN 

DEIETS:=0  ; 

IF  CURTP3.F  JOEFLISTONIL  THEN 
E  EG  IN 

F :  =CURTP3.  F  JUHPLIST; 

PRUNE  SAME F*(F)  ; 

END  ; 

IF  CURTP3.F  JUMPLISTONIL  THEN 
EEGIN 

S  :=CURTP3 .  F  JUHPLIST; 

F:=S3.  NEXT  7JUMP; 

PRUNE  GBEAlOR  (  F,  S  ,  DELETE)  ; 

END; 

IF  CURTP3.  SBRLISTONIL  THEN 
EEGIN 

F:=CURTP3. SERLIST ; 

PRUNE  SAMES(F); 

END; 

END; 

(* - - - 


(*  P  RUN  E_S  AMES 


ER  * 
- * 


I 


(*  CLEAN  * 
- * 


- - - - - —  — - — -  — -  — ----------- — - 

Cl  AGS  NEST1S3RBRK:  DIAGNOSTIC  PRINTOUT  IF  THERE  IS  A  *) 
A  STB  BREAK  WITHIN  AN  ITERATIVE  LOOP.  NEEDS  TO  SET  *) 
GOCD_SEG MENT  VARIABLE  FALSE 

Procedure  ciags  nestissrbrk (var  iempfile:text;  segitbiptr* 

VAR  GOOD  SEGMENT:  E00LEAN)  ; 

VAR  IS  EEK  BELOW  :E00LEAN; 


! 

I 

( 


i 


* - * 

*  EELOW  BREAK:  SEARCHES  OUT  BELOW  TO  SEE  IF  A  BREAK  * 

*  is  "Present  sc  diags  nesti  can  check  for  a  ereak  *) 

*  WITHIN  A  LOCP  “  *1 

*  - - - ____________ - _____  _____  —  _* 

R0CEDUB2  BELOW  E REA K (S EG : TBLPTR ;  VAR  IS  BRK  BELOW: 

“  BOOLEAN)  ; 

VAR  SER,  S3RL:  TELPTR; 

BEGIN 

IF  NOT  IS  BRK  EELOW  THEN 
BEGIN  " 

IF  SEGa.  SBRLISTONIL  THEN 
BEGIN 

SBRL  :=SEG3. SBRLIST; 

WHILE  SBRLONII  DO 
BEGIN 

SER:=S3RL3.S3R: 

IF  SBR*  .TAG=SBR3REAK  THEN 
IS  BRK  BELOW:  =  T  RU  E 
ELSE" 

BELOW  BREAK  (SBR, IS  BRK  BELOW); 
SERL:=S‘BRL3.NEXT  SBR" 

END; 

END; 

END; 

END;  (*  BELOW  BREAK  *) 
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(* 


(* . — . 

BEGIN 

IS  ERK  BELOW:  =  FALSE; 

BETCW  BREAK(SEG,IS  3RK  BELOW); 

IE  (IB  BRK  BELOW)  ASD(SSGa).  NEST=  1)  THEN 
BEGIS  “ 

GOOD  SEGMENT:*  FALSE; 

W  EITBL  N  (T  EMEFILE)  ; 

WRITE  (TEMPFILE,*  ')  ; 

WRITELN  (TEMPFILE,  **  SBR  BREAK  WITHIN  A  LOOP1)  ; 

W RIT E (TEM P FILE  '  ')  * 

WRITELN  (TEMFFI  Le,  'LOOP  BOD  N  •  ,  S  EG5> .  ST  ART  ADDR:  4 
TO  '  ,  SEGa)  .STOP  ADDR:  4)  ; 

END; 

END;  (*  DIAGS_NEST1SBRBRK 


* - 

I*  El  AGS  NEST  1 LEN  GTHCHK :  PRINTS  OUT  DIAGNOSTIC  IF  THERE 
*  EXISTS  AN  ITERATIVE  LOOP  OF  TOO  GREAT  A  LENGTH. 

*  TAKES  INTO  ACCOUNT  OUT  OF  LOOP  JUMPS.  NEEDS  TO 
*  SET  GCOD_SEGM  ENT  FALSE  IF  ENCOUNTERED 

KCCEDUEE  DIAGS  NEST1LSNGTHCHK  (VAR  TE MPFILE tTEXT  ; 

”  CUR : TBL  PTR ;  VAR  GOOD  SEGMENT: BOOLEAN) 

EEGIN 

IF  (CURa). LENGTH  >  LIMIT)  AND  (C  URa) .  N  EST=1 )  THEN 
EEGIN 

GCOD  SEGMENT:=FALS£; 

WRITELN(T EMEFILE)  ; 

WRITE  (TEMPEILE,'  ')  ; 

WRITEL  N(TE  MFFI  LE  , '*  BACK  JUMP  NEST  TOO  LONG’); 
WRITS  (TEMPFILE,* 

WRITELN  (TEMPFILE,  *  LOOP  BOUNDS', 

CURS. START  ADDR:  4  , '  TO  ', CURS). STOP  ADDR :4 ) 


END; 


END; 


(*  DI AGS_NEST 1 S  ERBRK 


*  #  -•  ••**##*#  #  * 


*  *  *  * 


El  AG  S  NEST6SBRINVCHK: 
DOE'S  NOT  EXCEED  6 

HOCEDORE  EIAGS  NESI6SBRI 

CUR:T 

EEGIN 

IF  SBRINVNSST  >  7  THE 
BEGIN 

GCCD  SEGMENT:=FAL 
WRITE (TEMPFILE , ' 
WRITELN  (TEMPFILE, 
WRITE  (TEMPFILE, ' 
WRITE  (TEMPFILE,' 
WRITELN  (TEMPFILE, 
END; 

END; 


CHECKS  THAT  THE  S3R  NEST 


LEVEL  * 
*' 


NVCHK (VAR  TEMPFILE ;T EXT ; 
ELPTR ;  VAR  GOOD  SEGMENT: 

S3RTN  VNEST : I 


•*  SBR  INVOKE  NEST  LEVEL 

CALLES *  ROUTINE  STARTS 
'AT  ABS  A  DDR  »,CUR3. START 


BOOLEAN 

NTEGER) 


>  6')  ; 
is  DR;: 


(*  DI AGS_NE  ST6  SBRI NVCHK  * 


*  RESET  INCLUDED:  SETS  ALL  INCLUDES  TO  FALSE.  DOES  SO 

*  FOR""  ALL  ROUTINES  ON  THE  SBRLIST  AND  BELOW  SBRS 


RCCEDUEE  RESET  INCLUD ED ( V AR  SBRL:  T3LPTR)  ; 

VAR  SBRLST,  SBT?:  TELFTR; 

EEGIN 

SBBIST:=SBRL; 

WHILE  SBRLSTONIL  DO 
BEGIN 

SER:  =  S  ERL  ST 3.  S  BR; 

CASE  SER3.TAG  OF 
TABLE: 

SBR:  =  SER; 

SBR  BREAK: 

SB R:  =  SEES.  SBR  Z 

END; 

IF  (SBRa).  SERLISTONIL)  AND  ( S  BR3.  COAL  ESCED= 

TRUE)  THEN 

RESET  INCLUDED  (SBP.3.  SBRLIST)  ; 

IF  (S3R3.  CCALESCED=TRUE)  THEN 
SBRS. INCLUDED: = FALSE ; 

SERLST:  =  SBSLST$.  NEXT  SBR; 

END; 

END;  (*  RSET  INCLUDED  *) 


*  INPOT: 

*  FUFFCSE:  TO  READ  AN  INPUT  FILE  AND  FORM  SE 

*  THIS  FORMS  THE  INTERNAL  CODE  STRUCTURE  WHI 

*  EE  MANIPULATED 


Q  LINKS. 
CH  Will 


30CEDURE  INPUT(VAB  SCRATCH:  TEXT;  VAR  EUILT  CODE  :CODEPTR; 

VAR  BUILT  CODE  COUNT:  INTEGER) 

VAB  ADDRESS  :I  NT  EGER  : 

TEMF,COUNT:  INTEGER  ; 

CUE, T  RAIL:  CCD  EPTR; 

EEGIN 

FIND  MSG  (SCRATCH,  CODENUM)  ; 

READ! SC RA  1C H, TEMP)  ; 

IF  TEMP  >  -1  THEN 
EEGIN 


NEW  (CUR)  ; 

EUILT  CODE.*=CUR: 


K 


#  #  *  * 


IT 


COUNT  :=0  ; 

CURS.  AADDR :=TEMP; 

CURS.  EADDR:=COUNT: 

READLN(SCRATCH, CURS. KEY)  ; 

TRAIL  :  =  CU  E 
END;  (*IF*) 

REFEAT 

NEW  (CUR)  ; 

COUNT :  =  COUNT+1  ; 

READ(SC PATCH, CURS.  AADDR)  ; 

IF  CURS.AADDBO-1  THEN 
EEGIN 

CURS.  R  A  DDR :  =CO  UNT: 

READLN (SCRATCH , CURS. KEY) ; 

TRAILS.  SEQ:  =CU  R  ; 

TRAILS.  Jt!P:=NIL; 

TRAIL  :=CUR; 

END: 

UNTIL  (CURS.  AADDR  =  -1); 

BUILT  CODE  COUNT:  =COUNT-1  ; 

TRAILS.  JMF7=NII; 

TRAILS.  SEQ:  =  NIL 

END;  (*  INPUT  * 

(* - - - - - * 

SETJMP:  * 

PURPOSE:  TO  SET  THE  JUMP  POINTER  OF  THE  BUILTCODE  * 
—  ——  —  ———  —  —  —  —  —  —  ——————  ——  —  ——  —  —— - —  —  — - — — - * 

Procedure  setjmps(vah  built  code:codeptr)  ; 

VAR  CUR:CODEPTR; 

(* - * 

(*  SETJ HP  PTH:  SEIS  THE  JUMPTR  OF  THE  CURRENT  NODE  * 

PROCEDURE  SETJMP  PTR  (VAR  BUILT  CODE :  CODEPTR ; 

CUR :  COD  EFT R) 

VAR  MARKER, SEARCH:COD  EPTR; 

ADDRESS:  INTEGER; 

BEGIN 

MARKER:  =  CURS.SEQ; 

IF  CURS.  KEY  IN  STEP  3  THEN 
MARKER  :  =  M  A  RKERS.  SlQ; 

ADDRESS: =10  0  *MAR  KER  S. KEY; 

ADDRESS:  =AD  DRESS  ♦MARKERS.  SEQS  .KEY; 

SEARCH  :  =  EU IL I  CODS: 

WHILE  (SEARCH3.AADDROADDRESS)  DO 
SEARCH  :  =  SEARCH S.S  EQ; 

MARKERS. SEQS . JMP : =S EARCH; 

END;  (*  SETJMPS  PTR  * 

(* - - - * 

EEGIN 

CUR  :  =  EUI  LT  CODE; 

WHILE  CURS7SEQ  <>  NIL  DO 
EEGIN 

IF  CURS. KEY  IN  (STEP  2  +  STEP  3)  THEN 
SETJMP  PTFfBUILT  CCDE,CURf; 

IF  CURS. KEY  IN  (.  77,76.)  THEN 
CUR:  =C UR  a .  SEQS.  SEQ 
ELSE 

ADVA  NCS  CODEPTR  (CUR)  ; 

END; 

END;  (*  TEST  SETJMP  * 

(* - - - * 
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#  #  *  * 


====================== ================== =============*) 

EUILE  SEGMENT  TAELE  ROUTINES:  ON  THIS  TABLE  ALL  *) 

OF  THE_CO  ALESCING_IS  DONS,  AND  NOT  THE  CODEL_  *j 

ROCEDURE  luiLE  SS  C-TBL  (BU  ILT  CODE: CODEETR; 

VAR“SEGTBL : TBLPTR ;  LIMI I : INTIG ER ; 

BUILT  CODE  COUN  T  :  INT  EGE R)  ; 

V  A  E  HERFTR: TELPTfi; 


/* - * 

(*  3LE  PRIM  SEGTBL :  RESULTS  IN  A  TA3LE  WITH  CRITICAL  * 
J*  EtINTS  IDENTIFIED.  THESE  ARE  BACK  JUMP  POINTS  * 
(*  TO  AND  FROM  LOCATIONS.  STOP  IS  STORED  IN  STOP  * 
(*  ADDRESS  OF  THE  FIRST  NODE.  * 

( * — —  — — — - — - - - - - — -  — — — — -* 

P ROCEDURE  BLE  ? R IMSEGT B L (BUILT  CODE : CODEETR ; 

VAR  HDRPTR  :  TBLPTR)  ; 

VAfi  CDSCP:  CODEETR; 


CURTP:  TBLPTR; 


ERCCESS  SBRLEL:  STORES  THE  S 
SERLIST  AND  PRODUCES  THE  F 
SEGMENT  TAELE  FOR  EACH  SBR 
THIS  IS  CONFUSING  IN  THAT 
IS  USED  TC  STORE  THE  LABEL 
THE  SEGTAELE.  KEY  FIELD  R 
FUNCTION  SO  THAT  THE  NAME 
STOP  ADDR.  THESE  LABEL  NOD 
AELE“TO  SET  THE  SBR  INVOKE 


- -# 

BRLBL  IN  THE  HEADER  *' 
IRST  SEGMENT  OF  THE  * 
.  * 
THE  SAME  TYPE  OF  NODE* 
NAME  AS  IS  USEE  FOR  * 
EDEFINITIONS  FOR  THIS* 
GOSS  INTO  THE  FIELD  * 
ES  ARE  NEEDED  TO  BF 
POINTERS  LATER  ON.  * 


PROCEDURE  PROCESS  SBR  L3L  (VAR  CURCP:CODEPTR; 

VAR  CURTP: TBLPTR) ; 

VAR  TRAILTP:  TELPTR; 

EEGIN 

TRAILTP:=C  URTP ; 

NEW(CORTP,TABL E)  ; 

CURTP 3. TAG  :=TABLE  ; 

CURTP3 .TAB  LELI ST : =NI L; 

CCRTP3. COALESCED:  *FALSS; 

C CHIPS. INCLUDED: = FALSE ; 

CURTP 3  .SBRLIST  :  =  N  IL; 

CURTP3. START  ADDR  :=CURCP3.  AAODR; 
CUPTP3.STOE  IDDR:=-1; 

IF  CURCP3.  KT!Y  =  76  THEN 
BEGIN 

C  URTP3  .  STOP  A  DDR  :  =CURCP3.  S  EQ3.  KEY  ; 
CURCP:  =CURC?3  .  SEQ3  .  SEQ 
END 
ELSE 

CURTF3.STCP  ADDR:  =  -1; 

IF  TRAILTP  <>— NIL  THEN 
TRAILTP3.S3RLIST:=CURTP; 

END;  (*  PROCESS 

(* . . . . . 


S ERL  EL  * 
: - - - * 
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•*•*** 


FRCCESS  SBRCCDE:  PROCESS  THE  TI-59  SBR  CODE  EOF 
CRITICAL  INFO  AND  BUILDS  THE  PRIMITIVE  SEGS 


RCCEDUP.E  PROCESS  SBSCODE  (V  AR  CUR  CP:  CODEPTR  ; 

VAR  SBRHDRTP: TBLPTR) ; 

VAR  TOPTP, CUBTP:  TBLPTR  ; 


* - _______ — — - - - - - — - - — * 

*  IS  BCK  JME:  DETERMINES  IF  THE  JUMP  IS  BACKWARDS* 

*  - - - - - - —  — - - * 

UNCTION  IS  BACK  JM P  (CURCP: CO DEPTR ): BOOLEAN ; 

VAR  ADDRESS:INTlGER; 

EEGIN 

IF  (CURCP2.KEY  IN  STEP  2)  THEN 
BEGIN 

ADDRESS:  =  CURCP2.SEQa>.  SEQ3.  JMP2.AADDR; 

IF  ADDRESS  >  CU  ECPi.  A  ADDR  THEN 
IS  EACK  JM  P : =FALSE 
E  LS  E“ 

IS  EACK  JM  F: =TROE; 

END 


! 


) 


ELSE 

I?  (CURCF2.  KEY  IN  STEP  3)  THEN 
BEGIN 

ADD  BESS  :=C  URCP2.  SEQa) .  SEQ2.  SEQa).  JMP2.  A  A  DDR; 
IF  ADDRESS  >  CURCP2  .  AADDR  THEN 
IS  BACK  JMP  :  =  F  ALS  E 
ELSE" 

IS  BACK  JMF:=TRUE; 

END 

ELSE 

IS  BACK  JMP: *FALSE ; 

END;  ”  (*  IS  BACK  JM?  * 


(* - - - *) 

{*  APND  JMP  TBL:  DETERMINES  ALL  OUT  OF  CODE  JUMPS  *) 
i*  FROM  A-” F ROM"  ADDRESS  TO  A  "TO"  ADDRESS.  *) 

(* - - - - - * 

FRGCEDURE  APND  JMP  TB L (CURCP: CODEPTR ; 

VAR  TOPTP: TBLPTR) ; 

VAR  ADDRESSER,  ADDRESS  TO;  INTEGER; 


I*  INSERT  CRITS:  PLACES  CRITICALS  IN  SEGTBL. 

(*  CRIITCAL  IS  ADDRESS  WHERE  A  3 ACK  JUMP  NEST 

<*  LEVEL  CHANGE  TAKES  PLACE,  IE  START  OR  STOP. 

i* - - - - - 

eBCCEDURE  INSERT  CR  ITS  (ADDRE S  5: 1 NTEGE R ; 

VAR  TOPTP: TBLPTR) ; 

VAR  CURTP  ,IRAILT  F,  INSERTTP  : TBLPTR; 

BEGIN 

TRAILTP:  =TO?TP; 

CURTF:=TCPTP2.T  ABLELIST; 

WHILE  (CURTP2.  START  ADDR  <  ADDRESS)  AND 
(CURIP2.T  ABLEIIST  <>  NIL)  DO 

BEGIN 

TRAILTP:  =CURTP; 

CU RT  P :=CURT  PS . TABLEL I  ST ; 

END; 

NEW  (INSERTTP  ,TA  ELE)  : 

INSERTTP  a.  TAG:  =  T  ABIE; 

INSERTTPS. START  ADDR :=ADDRSSS ; 

INSERTTP 2. STOP  SDDR:=-2; 

IF  ( CTJ  RTFS. TABLE  LI  ST=  NIL)  AND 

(CURTFS. START  ADDR  <  ADDRESS)  THEN 
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BEGIN 

CURTF2.TABLELIST:=INSSRTTP; 

INSERTTPS.T  A3L  ELI  ST:  =NIL 
END 
Els  ^ 

IF  (CURTPS. TABLELIST=NIL)  AND 

(CURTPS.  START  ADDR  >  ADDRESS)  THE 

BEGIN 

TRAILTPS.  TABLELIST:  =IN SERTTP; 

I N  SERTTPS . TABLE LIS  T:=CURTP 
END 
EL  SE 

IF  CURTPS. START  ADDR  >  ADDRESS  THEN 
BEGIN 

INSERTT PS. TABLELIST: =CURTP; 

THAI LTP S. TABLELIST :=IN SERTTP 
END 
ELSE 

DISPOSE  (I  NSERTTP,TA3LE)  ; 

END;  (*  INSERT  CRITS  * 

(*-  — . - - - " - * 


( * - * 

(*  SET  NESTS:  SEARCHES  THE  PRIM  SEGTBL  AND  MARKS  * 
*  AS  1  ALL  OVERLAPPING  BACK  JUMPS  TO  DESIGNATE  * 
(*  THAT  THEY  ARE  IN  A  NO  BREAK  AREA  * 

<* - - - - - * 

PROCEDURE  SET  NESTS (ADDRESSF R , ADDRESSTO: I NTEGER ; 

VAR  TOPTP: TBLPTR) ; 

VAR  CURTP :  TELPTR; 

BEGIN 

CURTP:  =  TCFTP; 

WHILE  C  URTPS .  ST  ART  ADDR  <>  ADDRESSTO  DO 
CURTP: =CURTPS .TABLELIST; 

WHILE  CURTPS. START  ADDR  <>  ADDRESSFR  DO 
BEGIN 

CURT  P3.N  EST : =  1; 

CU RT  E:=CUP.T  PS.  TABLELIST 
EN  D  * 

CURT  Pa).  NEST-:  =0 ; 

IF  (  (CURTPS.  TABLELIST  <>  NIL)  AND  (CURTPS.  NESI 
1>)  THEN 
CURTPS  .NEST:=  1 

END;  (*  SET  NESTS  * 

(* - - - * 

E  EG  IN 

IF  CURCPS .KEY  IN  STEP  2  THEN 
EEGIN 

ADDRESSTO:  =CU RCPS. SEQS.  5EQS.  JMPS.  AADDR ; 
ADDRESSFR:  =CURCPS.  SEQS.  SEQS. AADDR 
END 
ELSE 
BEGIN 

ADDRESSTO: =CU RCPS. SEQS . SEQS. SEQ S. JMPS . AADDR ; 
ADDRESSFR:  =CU  RCPS.  SEQS.  SEQS.  SEQS.  AADDR 
END: 

INSERT  CRITS(ADDRESSFR,  TOPTP)  ; 

INSERT”CRITSjADDR  ESSTO,  TOPTP)  ; 

SET  NEBTS (ADDRESSFR, ADORES STO , TO PTP) 

END;  “  (*  APND_JMP_TEL  * 

:gin 

NEW  (CURTP, TABLE)  ; 

C  CRlPS . T  AG : =  TABLE* 

CURTPS I  START  * ADDR:  =  SBRHDRTPS. START  ADDR 
CURTPS.  NEST:  =0: 


F  ALSE 


*  #  *  *  * 


CURTPS.  INCLUDED:  =FA  LSE ; 

C CRIES. TABLE IIST:=NIL; 

CURTPS.  SERLIST:  =  NIL  ; 

SEPHDRTP3.  T  AELELIST  :  =CURTP; 

ICPTP:  =  SERHDRTP; 

WHILE  ( (CURCF2. KEY  <>  76)  AND  (CURCPS.SEQ  <>  NIL  )) 
DC 

IF  IS  BACK  JMP(CUPCP)  THEN 
EEGTN 

A  PND  JKF  TBL  (  CURCP.TOPTP)  ; 

ADVANCE  CODEFTR  (CURCP) 

END 

ELSE 

ADVANCE  CCDEPTR  (CURCP)  ; 

IF  CURCPa.S'SC  =  NIL  THEN 

TO FT PS .TABIELI STS. STOP  ADD R ;= CU RCP3 . A ADDR 
ELSE 

TCPTP a. TABIELI STS. STOP  ADDR:=CU3CPS. AADDR-1; 

END;  “  (*  PROCESS  SBRCODE 


BEGIN 

CURCP:  =  BUI  LT  CODE; 

CURTP:  =  NIL;  “ 

PROCESS  S3RLEL  (CURC  P ,  CURT P)  ; 

HDEFTR:=CURTE; 

WHILE  (CURCPa.SEQ  <>  NIL)  DO 
BEGIN 

PROCESS  SERCODE  (CURCP, CURTP)  ; 

IF  CURCT?  3 .  KEY  =  76  THEN 

PROCESS  SB  RLB  L  (CU  5C  P,  CU  RT  P)  ; 

END; 

END;  (*  BLD_?RIMSEGTEL 


-II 


-H 


- - * 

BID  ADVSEGTBL:  FILLS  IN  THE  STOPS  AND  MERGES  SAME  * 
NESTED  LEVELS  INTO  CNE  SEGMENT.  * 

SICFS  ARE  STOP  ADD R  FIELD  * 

— - - - - - —————— - -  -———  —  - - — — * 

EOCECURE  BLD  ADVSEGTBL (VAR  HDRPTR: TBLPTH) ; 

VAR  SBRTPzTBLFIR;  STOP: INTEGER ; 


* - - ————  —  ————— ————————————  —————— ——————————  — — — * 

*  HEFGE  ONES:  COMBINES  SAME  NESTED  ADJACENT  1  SEGS  * 

*  - ———  —  —  — —  —  ———————  - ————  —  —  ———  —  —  -# 

SOCECURE  MERGE  ONES(VAR  SBRTP :  TBLPTR)  ; 

VAR  MARK  ,ZE3C70NE:  T  ELPTR  ; 


* - *\ 

*  MERGE:  DOES  ACTUAL  MERGING  OF  ADJACENT  SEGMENTS** 

*  - - - - - *) 

EOCEDURE  M ERGE  (VAR  ON  Er  ZERO ,  MARK:  TBLPTR)  ; 

VAR  DIS:  TBLPTH; 

BEGIN 

ONES. STOP  ADDR:  =ZEROS  .START  ADDR; 

DIS:  =ONES7TA  BLE  LIST; 

WHILE  ON ES.T ABL ELI ST  <>  ZERO  DO 
BEGIN 

ONES. TABLSL 1ST :=DISS. TABLELIST; 

DISPCSE(DIS  .TABLE)  ; 

DIS:=CNES.T  ABL ELI SI 
END: 

IF  ZEROS  .TABLELIST  <>  NIL  THEN 
ON ES.T AELELIST :=ZEROS. TABLELIST 
ELSE 

ON ES. T  AELELIST:  =NIL; 

MAR  K  :=0  NE  ; 
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DISPOSE  (CIS, TAB  IE)  ; 

END;  (*  MERGE 

I* - 

EEGIN 

MARK:  =  SBRTPa.TABLELIST; 

WHILE  MAR  KB.  TABLE  LIST  <>  NIL  DO 
BEGIN 

IF  (MARKS. NEST  =  0)  AND  (MARKS.  TABLE  LISTON  I 
THEN  MARK: =MARKS. TABLELIST; 

ONE:  =M  ARK: 

WHILE  (MARKS.  NEST=1)  AN  D  (MARKS.  T  AELELISTONIL 
DO  MARK:= MARKS. TABLELIST; 

ZERO:*  SARK; 

IF  ONE  <>  ZERO  THEN 
BEGIN 

MERGE (ONE , ZERO, MARK)  ; 

MARK:  =  ONE; 

END  : 

IF  MARKS. TABLELIST  <>  NIL  THEN 
MARK  :  =  MARKS. TABLELIST; 

END; 

END;  (*  MERGE  ONES 


|*  AEE_Z  EROS :  FILLS  IN  GAPS  IN  TABLE  WITH  0  SEG 

PROCEDURE  ADD  ZEROS  (VAR  SBRTP:  T3LPTR)  ; 

VAR  CUR, TRAIL, INSSR T: TBLPTR ;  STOP : INTEGER ; 

BEGIN 

TRAIL  :  =S BRTF; 

CUE:  =SERTP  S.  TABLE  LIST; 

STOP:  =  CURS.STOP  ADDS; 

WHILE  CURS. TABLELIST  <>  NIL  DO 
BEGIN 

CUR:  =CURS.  TABLELIST; 

WHILE  TRAILS .TABLELIST  <>  CUR  DO 
TRAIL:= TRAILS. TABLELIST; 

IF  TRAILS. NESTO  CURS.  NEST  THEN 

TRAILS. STOP  ADDR:=CURS. START  ADD R- 1 
ELSE 
BEGIN 

NEW  (INSERT, TABLE)  ; 

INSERTS).  NEST-  =0- 

I  NSERTS.*  START  ADDR  :=TRAILS. STOP  ADDR  +  1  ; 
INSERTS.  STOP  IDDR  :  =C URS .  ST  ART  ATJDR-1; 
INSERTS.  TABLELIST:  =CUR; 

TRAILS.  T  ABLELIST: = INSERT 
END  ; 

END  ; 

IF  CURS.  STOP  ADDR  <>  STOP  THEN 
BEGIN 

NEW  (INSERT, TABLE)  ; 

INSERT3.NEST  :=0  ; 

INSERTS. START  A  DDR :  =C  URS .  STOP  ADDR+1; 
INSERTS. STOP  KDDR:=STOP; 

I  NS  E  R  IS.  T  ABLELIST  :=NIL; 

CURS. TABL ELI  ST: =INSERT 
END  * 

^END;  ’  (*  ADD_ZERCS 

^EGIN 

SERTP:  =HDRPTR  ; 

WHILE  SBRTP  <>  NIL  DO 
BEGIN 

MERGE  ONES  (S3RTP)  ; 

ADD  ZEROS  (SBRTP)  ; 
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#  *  #  »  *  *  *  '—*-«** 


SBRTP:  =  SERTPS.  SERLIST; 
EtJD; 

END ; 

<* . . . . 


(*  BLD  ADVSEGT  EL  * 
- - - - * 


{* . . . . . * 

(*  EIC  FINSEGTBL:  PROCESS  CODE  FOR  S3R  INVOKES  AND  * 
FtJUMPS.  WHEN  ENCO  UNTERED  IT  PLACES  INTO  SEGTEL.  * 
(*  THESE  WILL  INCLUDE  ONLY  ONE  INVOKE  PER  SEGMENT  * 

(*  AND  ONLY  ONE  FJUMP  TO  SAME  LOCATIONS.  REPEATS  * 

WILL  BE  IGNORED.  LENGTHS  OF  SEGMENTS  WILL  ALSC  * 
(*  EE  CALCULATED.  LENGTHS  DO  NOT  INCLUDE  CODE  FOR  * 
(*  SEE  IN VCKES/EROMPT  CODE.  ONLY  SEQUENTIAL  CONTIN-* 
(*  CATION  CODE  IS  INCLUDED  IN  LENGTH  CALCULATION  TO-* 


*  GEIHER  WITH  FJUMP  PROMPT  CODE.  * 

*  - - - * 


r ROCEDURE  BLD  FINSEGTBL (BUILTCODE :CODEPTR ; 

VAR  HDRPTR:  TBLPTR  ;  LIMIT:  I  NTEGSR) 

VAP  CURCP:  CODEPTR; 

SERTP:  TBLPTR; 


(* - * 

?*  ERCCESS  SBRSEGTBL:  PLACES  SBES  S  FJMP  INTO  SEGTBL* 

(* - - - * 

PROCEDURE  PROCESS  SBR  SEGTBL  (VAR  CURCP:CODEPTR: 

VAR  HDRPTR, SBRIP: TBLPTR) ; 
VAR  CURTP,SBFINVOKE , FJMP: TBLPTR ; 


FWDJMP:  INSERTS  FWD  JUMPS  INTO  TABLE. 


-* 

* 

-* 


*  HANDLE 

■ROCEDURE  HANDLE  FW  DJMP  (CURC  P  :  CODEPTR  ; 

VAR  HDRPTR,  CURTP,  FJM  P:  TELPTR) 
VAR  AD  DR ESSTO,  ADDRESSFR:INTEGER; 

INSERT  :TELPTR  ; 

BEGIN 

IF  CURCP2.KEY  IN  STEP  3  THEN 
BEGIN 

ADDRESSFR:  =  CURC?S.SEQS.  SEQS.SIQS.  AADER: 
ADDRESSTO:=CURCPS.SEQS.  SEQS.  SEQS.  JMPS.  A  AD  DR 
END 
ELSE 
3EGIN 

ADDRESSFR:  =CURCPS.  SFQ  3.  SEQa).  A  AD  DR  ; 

ADD  R  ESSTO :  =  CURCPS.  S  EQ3.  SEQa).  JMPS.  AADDR; 

END; 

NEW  (lNSERI,FWD  JUMP): 

INSERTS.  TAG:  =F?D  JUMP; 

INSERTS.  JUMP  AD  DEER:  =ADDRZSSFR  ; 

INSERTS  .  JCMP"AD  DRTC :  =  ADD R ESSTO  ; 

INSERTS.  JUMP"ADDRT0  1:=-1  ; 

INSERTS.  JUMP"ADDRTO  2  :=-2; 

INSERTS.  MEM  IDDR:=-1: 

INSERTS.  JUMP  I N  TAD  DRTOI :  - -1  ; 

INS  ERTS  .  JUMP“INTADDRT02:=-2; 

INSERTS.  NEXT"FJUMP:=NIL; 

IF  CURTPS.F  JUMPLIST  =  NIL  THEN 
BEGIN 

CURTPS.F  JU M?LIST:=INSERT; 

FJMP:=IN5ERT; 


END 

ELSE 

3EGIN 

FJM PS. NEXT  FJUMP : =INS  ERT ; 

FJMP:  =  INSSSTT 
END; 

END;  (*  HANDLE  FWDJMP  * 

(* . . . —  - . . . . -* 


2 


*  IS_FWD_JMF:  BOOLEAN  TRUE  IF  KEYCODE  IS  FWD  JXF 

UNCTION  IS  FWD  JMP <CU BCP : COD EPTR) : EOOL EAN ; 

VAR  ADDRESS  :INTEGER; 

ESGIN 

IF  (CURCPS. KEY  IN  STEP  2)  THEN 
BEGIN 

ADDRESS:=CURCPS.SEQS.  SEQS.JM PS. AADDR; 

IF  ADDRESS  >  CURCPS.  AADDR  THEM 
IS  FWD  JMP :=TRUE 
ELSE" 

IS  FWD  JMP :=FALSE; 

END 
ELSE 

IF  (CURCPS.  KEY  IN  STEP  3)  THEN 
BEGIN 

ADDRESS :=C  URCPS. SEQS . S EQS . S EQS.  JMPS . A ABDR; 
IF  ADDRESS  >  CURCPS. AADDR  THEN 
IS  FWD  J  MP :  =TRUE 
ELSE" 

IS  FWD  JMP:  =FALSE ; 

END 
ELS  E 

IS  FWD  JMP:  =  FALSE; 

END;  "  (*  IS  FWD  JMP  *) 

♦  - 1 . . . . . . . " - *f 


* - - — - — - - - — - — —  — * 

*  HANDLE  SB3INVOKE:  ELACSS  S  BR  CALL  INTO  TAELE  * 

*  - * 


EOCZDURE  HANDLE  SB RIN VOKEfV A R  CUR CP: CO DEPTH: 

"VAR  HDRPTR,CURTP,  SBR INVOKE :TBLPTR) 
VAR  TOSBR, INSERT: TBLPTR; 

KEYY:  INTEGER; 

BEGIN 

TOSB  R:  =  HDFPTR; 

KEYY  :=CURCPS.SEQS.  KEY; 

WHILE  TOSER3.  STOP  ADDF.O  KEYY  DO 
TOSBR  :=TOS  3RS  .S'ERLIST; 

NEW  (INSERT, SBRPTR); 

INSERTS.  TAG:  =SBRPTR: 

INSERTS.  FROM  :  =C  URC  PS.  AADDR-*- 1  ; 

INSERTS.  SER:  =TO  SBRS  .  TABL  ELIST; 

INSERTS.  NEXT  SBR:  =  NIL; 

IF  CURTPS. S33LIST  =  NIL  THEN 
3EGIN 

C’JRTPS.SBRL  1ST:  =  INSERT; 

SBRINVOKE:  =  INSERT 
END 
ELSE 
BEGIN 

SBRINVOKES.  NEXT  S  BR  :  =  INSERT ; 

S3RINV0KE:  =  INSZTRT; 

END* 

END;  *  (*  HANDLE  SBRINVOKE  * 

EGIN 

CURT ?:  =SBRTP3.  TAB LEL  1ST; 

REPEAT 

CURTPS.  S  ERLIST:  =  NIL: 

CURTFS.F  JUMPLI  ST:  =NIL; 

SB  RI NVO  KT  :=NIL; 

FJMP:  =  NIL; 

WHILE  CURCPS. AADDR  <  CURTPS. STOP  ADDR  DO 
BEGIN 

IF  CURCPS.  KEY  =  71  THEN 
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*  * 


HANDLE  SBRINVOKS(CURCP,  HDRPTR,  CURTP, 

SBRINVOKE) ; 

IF  IS  FWD  JMP(CURCP)  THEM 

HANDLE  PWDJMF (CURCP, HDRPTR- CURTP. FJMP) ; 
IF  (CURCP3. KEY=76)  33  fCURCPo) .  KEY  =  7  1 )  THEN 
CURCP:  =CU  RCP3.  Si33 .  SEQ 


SE23. SSQ 

ELS  E 

ADVANCE  CODEPTR  (CURCP)  ; 

END; 

CURTP:  =  CDRTP3.  T  ABLELIST 
UNTIL  {CURTP  =  NI L)  ; 

END;  (*  PROCESS  S3RSEGTBL 


-*! 


*  SET  LENGTH:  ENSURES  LENGTH  IS  WITHIN  MEMORY 


17  NOT  WILL  DIVIDE 
RESET  ALL  SBRLISTS 
NOTE:  MAY  LEAD  TO 

ARBITRARILY  SMALL. 


LIMIT*1 


THE  SEGMENT  IN  HAL?  AND  * 
AND  FJU  MPLISTS  THEN  CONTINUE* 
PROBLEMS  IS  LIMIT  IS  * 

* 


Procedure  set  length {euilt  code:codeptr : 

VAR  SURTP :  TBLPT  R;  LIMIT :  INT  EGER)  ; 

VAR  CURT  P:  T3LPTR  ; 

LENGTH, DELETE,!  FOSS  B  R:  I NTEGER  ; 


1 


I 


* - - - - - * 

*  CALCULATE:  DETERMINES  LENGTH  OF  A  SEGMENT.  WILL*) 

*  NOT  ADD  ADDITIONAL  STEPS  FOR  DUPLICATE  FJMP  *) 

*  ADDRTOS  *) 

*  -  - —  -  —  —  -  — - - - - — -  -  -  —  - — - —  —  *  \ 

EOCEDURE  CALCULATE  (CURTP :  TBLPTR ; 

VAR  LENGTH:  INTEGER)  ; 

VAR  S,  F: TBIFTR : 

ADDITIONS:  INTEGER; 

BEGIN 

LENGTH  :=  CURT  Pa).  STOP  A  DDR -CUP  TP  3.  START  ADDR 

+  FJUMPCONST+1  ; 

IF  CURTP3.F  JUMPLISTONIL  THEN 
BEGIN 


ADDITIONS:  =  0; 

F;=CURTPa).F  JUMPLIST; 

I?  F2.JUMP  KDDRTO  >  CURTPS.STOP  ADDR  THEN 
ADDITIONS :=1 ; 

S:  =  f  ; 

F:  =F^ .NEXT  FJUMP ; 

WHILE  F<>  NIL  DO 
BEGIN 

IF  Fa). JUMP  ADDRTO>CURTPa).  STOP  ADDR  THEN 
BEGIN 

ADD IIIONS;  =  ADDITIONS*  1; 

S:  =  CURTPa) . ?  JUMPLIST: 

WHILE  ((SOP)  AND  (S3. JUMP  ADDRTOO 

Fa).  JUMP  ADDRTC))DO 
S :=S3. NEXT  FJUMP; 

IF  SO  F  THEN 

A  DDITIONS :  =  ADDIT IONS- 1 ; 

END; 


F;=F3.NEXT  FJUMP; 

END;  “ 

LENGTH  :=LSNGT  H  +  (ADDITIONS)  *  (  FJU  MPCONST)  ; 

END ; 

END;  (*  CALCULATE  * 

<* . . . . . . * 
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#•»##* 


L  POSSBRRK:  CALCULATES  ANY  SBR  INVOKES  AS  A 
“POSSIBLE  BREAK  FOR  DIVISION  PURPOSES.  DOSS  *) 
NOT  INCLUDE  MULTIPLE  INVOKES  OF  SAME  SEE  * 

- * 

PROCEDURE  LENGTH  SB RBRKS (CURT P: TBLPTR : 

VAR  L  POSSBRrINTEGSR)  ; 
VAR  F , T:  TBLETR ;  COUNT: INTEGER;  “ 

BEGIN 

CO  UN  T:  =  0  ; 

IF  C  URTP  2.  SBRLI  STONIL  THEN 
BEGIN 

F:  =CDETP3.  S  BRLIST  ; 

WHILE  FONIL  DO 
BEGIN 

IF  NOT  (Fa).  SBRd).  INCLUDED)  THEN 
BEGIN 

COU  NT: =COUNT+ 1 ; 

Fa).  SBR®.  INCLU DED :  =  TRU E; 

END; 

F :=F  a).  NEXT  SBP; 

END; 

F:  =C0RTPa.  S  BRLIST  ; 

WHILE  FONIL  DO 
BEGIN 

F2.SBRS .INCLUDED: =FALSE; 

F  :=F a).  N  EXT  SBR; 

END; 

END: 

L  P0S5  BR :=CO  UNT  *SBRCONST ; 

END“ 


(*  L_SBRBRKS  * 


*  DIVIDE:  DIVIDES  A  SEG  IN  HALF  AND  RESETS  FJMF 

*  AND  SBR  FCINTERS. 


ROCEDURE  DIVIDE  (30  ILT  CODE.'CODEPTR 

VAR  CffRTP:TBL?TR)  ; 
VAR  INSERT  :IELPTR ; 

S ,  F:  TB  LETR ; 

NEW  STCP'.INTEGER  : 


♦  SETT:  ENSURES  THAT  DIVIDE  CALCULATED  STOP  IS 

*  NOT  SPLITTING  A  1,2,3  PART  INSTRUCTION. 

_  — —  - - _______  _  _  __  _  _  _  _ _  —  —  _ * 


ROCEDURE  SETT  (BUILT  CODE: CODEPTR ; 

VAR  NET?  STOP  :  INTEGER)  ; 

VAR  P,T  :  CCDEPTR  ; 

BEGIN 

P :=BUILT  CODE  ; 

WHILE  (PELAADDR  <=  NSW  STOP)  DO 
BEGIN 

■j  •  =p  • 

IF  (&3 .KEY  =  76)  OR  (Pal.  KEY  =  71)  THEN 
E  :=P3.  S  EQ3 . S  EQ 
ELSE 

ADVANCE  CODEPTR (?) ; 

END: 

IF  (T3.KEY  =  76)  OR  (T3.KEY  =  7  1)  THEN 
T:  =T2 .  SEQ3.  SEQ; 

HEW  STCP:  =  T3.  AADDR-  1; 

END;  ~  (*  SETT  * 


*  FIND  INSSBR LIS 

*  BETWEEN  THE 


ROCEDURE  FIND_IN 

VAR  LIMIT:  INTEGE 
T :TBL  PTR; 
EEGIN 

LIMIT:  =  NEW  5T0 
IF  CURTFS.5BRL 
BEGIN 

S :=CURTP3. 
IF  (S3. NEX 

BEGIN 
S:  =  S3. 
T: =CUR 
WHILE  j 

BEGI 
S: 
T: 
END; 
IF  S3. 

T3.N 
ELSE 
S  :  =  N 

END 
ELSE 
BEGIN 
IF  S3. 
CURT 


T:  DIVIDES  UP  THE  SBRLIST 
OLD  AND  NEW  SEGMENTS 


SSBRLIST (VAR  CURTP ,5 :TBLPTR 
NSW  STOP : INTEGER) ; 

R; 


P+1  ; 

ISTO  NIL  THEN 

c np  T 

I  SBROfllL)  AND(S3.  FROM 
<  LIMIT)  THEN 

NEXT  SBR; 

TP3.EBRLIST; 

S3. FRO  M<LI MIT)  AND 
S3.  NEXT  SBRONIL)  DO 
N 

=S3 .NEXT  SBR; 

=  T3 . NEXT^S  BR  ; 

FROM  >=LI M IT  THEN 
EXT  S3R:  =  NIL 


FROM  >=  LIMIT  THEN 
P3 . SBRLIST :=NIL 


*  * 


END; 

END 

ELSE 

S  :=N  II  • 

END;  (*  FIND  INSSEF.LIST  * 

( * - - - - - - * 


* - * 

*  FIND  INSFJMPLIST:  DIVIDES  FJUMPLIST  BETWEEN  * 

*  OLD  AND  NEW  SEGMENTS.  * 

*  - * 


ROCEDORE  FIND  INSFJMPLIST  (VAR  C  URT  P,  F  :  TBL  PTR  ; 

NEW  STOP  :INTEGER)  ; 

VAR  LIMIT :  INT  EGS  R; 

T  :TBLPTR; 

EEGIN 

LIM  IT ;  =  NEW  STOP  +  1; 

IF  CURTF2.F  JUMPLISTO  NIL  THEN 
BEGIN 

F:=CURTP2t.  F  JUMPLIST: 

IF  (F3. NEXT  FJUMPONIL)  AND  (?a. JUMP  ADD R FR 

<  LIMIT)  THEN  “ 

BEGIN 

F:  =  Fa.  NEXT  FJUMP  ; 

T:=CURT?a.F  JUMPLIST; 

WHILE  (F3.  JU7!P  ADDR?R<LIMIT)  AND 
]?a.  NEXT“F JUMPONIL)  DO 
BEGIN 

F:  =F3 . N EXT  FJUMP; 

T; =Ta. NEXT“F JUMP; 

END; 

IF  F3. JUMP  ADDRFR  >=LIMIT  THEN 
Ta.N  EXT  FJUMP :=NIL 
ELSE 
F;=NIL 

END 

ELSE 

BEGIN 

IF  Fa.  JUMP  ADDRFR  >=  LIMIT  THEN 
CDRTPa.  F~ JUMPLIST:  =  NIL 
ELSE 
F :=N  IL 

END; 

END 


ELSE 

F :=N II; 

END;  (*  FIND  INSFJUMFLIST  *) 

(* . . - - - “ - *) 

BEGIN 

NEW  STOP  :=((  (CURT  Pa  .STOP  ADD  R-CURT  Fa .  ST  ART  ADD  R 

*  1 )  Dl V  2)  ) +CURTF3.  START  ADDR  ; 
SETT (BUILT  CODE, NEW  STOP); 

N EW  (INS ER TTT ABLE i  ;  ~ 

INSERia.  NEST:  =CU  RTP3.  NEST: 

INSER  ia.  START  ADDR:=NEW  STOP+1; 

INS  ERTa.  STOP  UDDR:  =CURTFa  .  STOP  ADDR; 

FIND  INSSERLTST  (  CURTP.S,  NEW  STDF); 

F IN  D” INS  F JMPL 1ST  (CURTP  ,F,  N37  STOP)  ; 

INSEFT3.  SEFLIST:  =S; 

INSERT3. F  JUMPLI ST; -F ; 

INS  ERia.TlELELIST:=CURTPa.  TABLE  LIST; 
CURTPa.TAEISLIST  :  =  INSERI: 

CURTPa.STOP  A  DDR  ;  =N  EW  STOP; 

ND;  “  (*  DIVIDE  *) 

* . . . . . * 

GIN 

CURTP:  =  SBRTFa.TABL  ELI  ST; 

REPEAT 
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CALCULATE  (CURTP, 
IF  (C  URT  P  2 . NEST 
BEGIN 

LENGTH  SBRBR 
IF  LENGTH+L 
DI V  IEE ( BUT 
ELSE 
BEGIN 

CLEAN  (CU 
DELETE:  = 
CDRTPa.  L 
IF  CURTP 
CURTPa. 

CURTP :=C 
END 

END 

ELSE 

BEGIN 

CLEAN  (CURTP, 
D ELET  E  :  =  0  ; 
CURTP2.LENGT 
CURTP  :  =  CURTP 
END  ; 

CNTIL  (CURTP  =  NIL 
END; 


nr 


^EGIN 

CURCP:  =  BUILTCCDE  ; 
SERTP:  =  HERPTR; 

WHILE  SBRTP  <>  NIL  DO 
BEGIN 

EROCESS  SERSEGTBL 
SET  LENGTH  (BUILT 
SBRTP:  =  SBRTP  a.  S  BH 
END; 

END; 


LENGTH); 

=  0)  THEN 

KS (CURTP, L  ROSSER); 
POSSBR  >  LIMIT  THEN 
LT  CODE, CURTP) 


RTP, DELETE)  : 

0;  (^CALCULATE  HAS  THIS  COVERED*) 
ENGTH:=LENGTH-DELETE*FJUMFCONST; 
3. TABLELIST=NIL  THEN 
LENGTH :=CURTP3. LENGTH- FJUMPCCN ST 

+SBRCONTCONST; 

URTP3.TABLELIST; 


DELETE)  ; 

(*  CALCULATE  HAS  THIS  COVERED  *) 
H:= LENGTH- DEL ETE*FJUMPCON ST; 

3.  TABLELIST 


(*  SET_LENG  TH  *) 


RS  EGT  BL  (CURCP  ,  H  DRPTR  ,  S3  RTP)  ; 
(BUILT  CODE, SBRTP, LIMIT)  ; 

tp  a.  s  ehlist 


FINSEGTEL 


eIgin 

IF  EUILT  CODE  CCUNT<= LIMIT  THEN 
EEGIN  “ 

NEWJSEGT3L -TABLE)  ; 

SECT  BL  a.  TAG:  =T  ABLE; 

SEGTBLa. TAELELIST :=NIL; 

SEGTBLa.  SB5LIST:  =  NIL; 

SEGTBLa.  COALESCED  :=TRUE; 

SEGTBL3.  INCLUDED:  =FALSE ; 

SEGTBLa. START  ADD R  :  =  0 ; 

SEGTBLa. STOP  IDDR  :  =  BUILT  C0DE3.SEQa.KEY; 
NEW(HDRPTR  ,13BLE)_  ; 

HEBPTR3.  ST  ART  ADD  R :  =0 : 

HDRPTR 3.  STOP  IDDR:  =  EUILT  CODE  COUNT; 
HDRPTR  3.  NESIT=0: 

HDRPTR3.  TAELEL  1ST  :=NIL; 

HDRPTR  a.  S  B  RUST:  =  NIL; 

HERPTRa.F  JUMPLIS  T;  =  NIL  ; 

HDRPTR  3. CU ALESCED : =T  RUE ; 

HERPTR3.  INCLUDED:  =FALSE ; 

HCRPTRa.  LENGTH  :  =  BUILT  CODE  COUNT+1; 

S  EGT  BL3.  TAELEL  1ST  :  =  HDKPTR;” 

END 

ELSE 

EEGIN 

BLD  PRIMSEGTBL  (BUILT  CODE,  HDRPTR)  ; 

ELD”  A  DVSEG1EL  (  HDR  PTRr; 

BLD“FI  NSEGTELJ  BUI  IT  CODE,  HDRPTR,  LIMIT)  ; 

S  EGTBL  :  =  HD  FPTE  ; 

END; 

END;  (*  BLD 


SEGTSL 


218 


****** 


=========  =  ===========================================?) 

COALESCE:  COALESCES  THE  SEG  TABLE  MAKING  GOOD  BEK.  *) 
ONLY  LOSS  OF  EFFICIENCY  IS  WITH  CROSS  SEGMENT  * 

FORWARD  JUMPS.  THESE  MAY  PRECLUDE  THE  COMBINING  * 
OF  A  SEGMENT  EECAU5E  OF  ADDED  CODE  FOR  THE  JUMP 


=*\ 


P0CEDU5S  COALESCE  (VAR  SBR: TBLPTR;  LIMIT : INTEGER ; 

VAR  GOOD  SEGMENT:  BOOLEAN;  VAR  S3  EIN  VN  EST  :  INT  EGER)  ; 
VAR  CUR  SEG:  TBLPTR; 


■  -* 


*  SERSUM:  SUMS  ALL  S3RS  ON  A  S3RLIST.  SETS  INCLUDES  * 

*  TRUE.  ADDS  SBRCONST  IF  SBR  BREAK  IS  ENCOUNTERED.  * 

*  - * 

BLST:  TBLPTR;  VAR  SUMSBR:  INTEGER); 


(* - - - 

PROCEDURE  S  BRSUM  (VAR  SB 
VAR  SERL,SER:TEIPTR; 
BEGIN 

SER I :=  SB  RLS T  ; 

WHILE  SBRLONIL  DO 
BEGIN 

SBR : =S  BRL3.S  BR; 
CASE  SB  R  2 . TAG  0 
T  A  BL  E : 

BEGIN 

IF  (SER2.C 
IF  NOT ( 
BEGIN 
SBR 
SUM 

IF 


END; 
SUMS  Efi :  =  SUM 


END  , 
SBRBREAK: 


(*- 


END; 


END, 

SBRL:  =  SBRI3.  NEX 
END; 


OALESCED)  THEN 
SERB.  INCLUDED)  THEN 

a).  INCLUDED  :  =  T RUE; 

SBR: =SUMSBB+S3Ra. LENGTH 

-S  3RCONTCON  ST ; 
S8R3).  SBRLISTONIL  THEN 
BRSUM  ( SBRo).  S  SRL  1ST  r SUMSBR)  ; 


SBR+S3RCONST  ; 
I_SBR; 


(*  SERSUM 


-i) 


- *) 

INVOKE  NODE.  * 
THAT  IS  SUMSBR  * 
- —  — * 

VAR  SUMT:  INTEGER)  ; 


*  SERSUMLINK:  ADDS  ALL  53RS  BELOW  AN 

*  IT  DOES  NOT  CO  THE  WHOLE  SBRLIST. 

*  - 


ICCECURE  SBRSUMLINK(VAR  SBRPTR :  TBLPTR ; 

VAR  PTR:  TB LPT R  ; 

BEGIN 

FTE:=SBRPTR5>  .SER; 

CASE  PTRS.TAG  OF 
I A  BL  E  * 

IF~i?TRS  .COALESCED)  ANDjPTSD  .  TA3LELIST  =  NIL)  THEN 
IF  (NOT  (PTEu).  INCLUDED)  )  THEN 
BEGIN 

PTR2.INCLUDED:=TRUE; 

S  BRSUM  (PTRa).  SERLISTrSUM 
SUKT:=5UM  T+PTR5) .  LENGTH-S 
END 
ELSE 

IF  (ETR3.C0  ALESCED)  AND  (NOT 


I^RCCNT 


CONST; 


(PTR3.  INCLUDED^ 

S  U MT :  =  SUM T  +  PTRai.  LEN3T H-S SRCCNTCONST ; 
SERBREAK  : 

SUMT:  =  SUKT; 

END  ; 

END;  (*  SBRSUMLINK  * 


-*! 
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* - ________ - - - ______ —  _ — - - -  — - * 

*  CHK  SEGSIZE:  VERIFIES  THAT  THE  SEGMENT  OF  NEST  0  * 

*  TOGETHER  WITH  ITS  REQUIRED  S3R  INVOKES  IS  WITHIN  * 

*  MEMORY  CONSTRAINTS.  IF  IT  DOES  NOT  FIT  THEN  A  * 

*  SER3REAK  IS  INSERTED.  THIS  ROUTINE  ASSUMES  THAT  * 

*  THE  SEGMENT  LENGTH  IS  OK.  SET  LENGTH  ENSURES  THIS* 

*  IF  A  SBS  IS  NOT  COALESCED  THIS  ROUTINE  MUTUALLY 

*  EECURSES  WITH  COALESCE.  DURING  ITS  CHECK,  IT 

*  WILL  INCLUDE  AND  RESET  INCLUDES. 

——————  —  —  —  —  —  —  _________  —  —  —  —  — — — - —  — — 

ROCEEURE  CHK  SEGSIZE(VAR  CURSEG  :  TBLPTR ;  LIMIT:  INTEGE 

VAR  SEG, SBR7SBFL:TBLPTR: 

CHKLENGTH,  SUMS3R:  INTEGER; 


*  INSERT  SBRERK;  INSERTS  THE  S3RBREAK  NODE 


PROCEDURE  INSERT  SBRB  RK  (SERNODE  :TBLPTR)  ; 

VAR  INSERT  ,CUR7FWD:  I3LPTR; 

EEGIN 

CUR:  =S  ERNOEE; 

IF  CUR®.  SERE.  TAG  <>  SBRBREAK  THEN 
BEGIN 

? WD:  =  C  UR®.  SBR  ; 

SEW  (INSERT,  SBRBREAK)  ; 

INSERTS.TAG:  =  SBREREAK; 

INSERTS. SBRZ: =CUB®. SBR; 

CURS.  S£R:  =  INS  ERT; 

END; 

END;  (*  INSSRT_SERBRK 

^EGIN 

SEG :  =CUS  SEG  ; 

WHILE  SEGONIL  DO 
BEGIN 

CHKLENGTH:=S  EG®  .LENGTH; 

IF  SEG  a).  TABLELI  ST=NIL  THEN 

CHKL ENGTH: =CH KL ESGTH-S3RCONTCON ST ; 

IF  SEG®.  SERLISTONIL  THEN 
BEGIN 

SBRL  :=SEG®. SBRLIST; 

WHILE  SBRLONIL  DO 
BEGIN 

SEE: =SB  RL® .SBR; 

CASE  SBR®.  TAG  OF 
TABLE; 

BEGIN 

IF  (SBR®  .COALSSCED=F  ALSE)  THEN 
C0AL3SCE(SBR,LIMIT, 

GOOD  SEGMENT,  S3RINVNEST) 
IF  SERS.TA3LEIISTONIL  THEN 
3EGIN 

INSERT  SDR3F.K  (SBRL)  ; 

S  N  D  #  * 

S  UMSB3: =0; 

S ERSUMLINK (SBRL, SUMSBR)  ; 

C  HKLENGTH:  =CHKLSNGTH*SUMSBR ; 

IF  (CHKLENGTH>LIMIT)  THEN 
3&GIN 

INSERT  S3R3RK  (SBRL)  ; 

CHKLENGTH  :  =  C HKLENGTH -SUMS  EP. ; 
RESET  ISCLUDEDf  SEG®. SBRLIST)  ; 
END; 

END  : 

S3R3R  EAK : 

END; 

ScRL:=S BRL2. NEXT  S3R; 

ENE; 
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*  *  *  *  *  -'**** 


I?  SZGS.  SERLI3TONIL  THEN 

RESET  INCLUDED  (S  EG  a). SB?.  LIST)  ; 

DIAGS  NE  £ 1 1 S  BE  B  R  K ( TE  HP  FI L  E , 5  EG , GO  OD  SEGMENT)  ; 

SEG  :  =5EGi  .TABLE LIST; 

END* 

END;  "  ’  (*  CHK  SEGSI^Z  *) 

I* - - - - - " . --*} 


!* - — - - - — - - - —  -* 

*  COMBINE :  TAKES  THE  CHECKED  SEGTA3LE  AND  COMBINES  * 
*  IT  INTO  A  MAXIMIZED  COMBINATION  OF  SEGMENTS  AND  * 
*  SBR.  BASICALLY,  IT  MERGES  THE  ADJACENT  SEGMENTS  * 
*  IF  THEY  CAN  EE  MERGED.  * 

*-  — - — - - - — - - - - - - * 

FEOCZDUFE  COMBINE  (VAR  C  URS  EG  :  T3LFTR  ;  L  IMITs  INT  EGER)  ; 

VAR  SUMSBRF,  SO  MSBRC,S  UMFWD,  SOMC  'JR,  SUMTOT:  INTEGER; 

CUR,  FBD:  TBLETR: 

D ELS UMS3RZ,EELSUMFJMP: INTEGER; 


r* — - - - - - —  - - - - — 

*  MERGES  I  MERGES  ADJACENT  SEGMENTS  TO  INCLUDE  THEIR* 
r*  RESPECTIVE  FJUMP  LISTS  AND  SBRLISTS.  IT  THEN  * 
(*  USES  CLEAN  TO  REMOVE  ANY  DUPLICATE  JUMPS/SERS  * 
I*  USES  CLEAN'S  DELETE  FACILITY  TO  READJUST  LENGTH*! 
i1*  THE  LENGTH  FOR  THE  SBHBREAK  CODE  IS  NOT  * 

l*  INCLUDED  IN  SEGMENT  LENGTH,  ROOM  IS  LEFT.  * 

i‘* - 


PROCEDURE  MERGES  (V AR  CUR , PHD: TB LPT R); 

VAR  SBRTAIL,  JMPTAIL  :TBLPTR;  DELETE:  INTEGER; 

BEGIN 

IF  FWDS.F  JUMPLISTONIL  THEN 
IF  CURSTF  JUMPLISTONIL  THEN 
BEGIN  ~ 

JMPTAIL; =CORS.F  JUMPLIST: 

WHILE  JMPTAILS.flEXT  FJUMPONIL  DO 
J  METAIL:  =  JMPTAIL3TNEXT  FJUMP; 

JMPTAILS.NEXT  FJUMP:  =PWDaL  F  JUMPLIST; 

END 
EL  S  E 

CUR3.F  JUMPLIST: =FWD3.F  JUMPLIST; 

IF  F  HD  3.  S  BHIIS TO  NIL  THEN  “ 

IF  CURS.  SERLISTONIL  THEN 
BEGIN 

SBRTAIL:  =C0  ES.  SERLIST  : 

WHILE  SBRTA  ILS  .NEXT  S3RONIL  DO 
SERTAIL:  =SBRTAIL3. NEXT  SBR; 

SBRT AILS .NEXT  SBR : =F W DS . SBPLI ST ; 

END 
EL  S  S 

CURS.  SERLIST:  =FWDS.  SBR  LIST  ; 

CURS. STOP  AEDR :  =  F  WDS  .STOP  A  DDE  ; 

CURS. T ABLE LIST: =F WDS. T ABLE LIST ; 

CUR3.NZST:  =  0; 

DELETE  :=0 ; 

CLEAN  (CUR,  DELETE)  ; 

CURS.  LENGTH  :=CURS  .  LENGTH* F  WDS.  LENGTH-  (  (DELZTE  +  1  )  * 

FJUMPCONST)  ; 

EISPOSS(FWE, TABLE)  ; 


END;  (*  MERGES  *> 

(* - - - - - *) 


I 


I 


! 


) 


» 


*  MCE  SUMTOTF  JMP:  SIMULATES  THE  COMBINE  0  F  THE  F  JM  F*^ 

*  THIS  IS  A  PREDICTION  I?  ADJACENT  SEGMENTS  WERE  *) 

*  MERGED.  *) 

$  .  ..  .  ....  ......................................  —  *1 

PROCEDURE  MOD  SUMTOTF  JMP  (CUR,  FW D:  T 3L  FT R  ; 

VAR  DELSU  MFJMP  :  INTEGER) 
VAR  P,  T :  TBL  PTE;  FCCUNT:  INTEGER  ; 

BEGIN 

FCOUNT  :=0  ; 

F:=CURS.F  JUMPLIST; 

WHILE  FOHIL  DO 
BEGIN 

IF  PS. JUMP  AD  DRTQ<  =  FWDS .STOP  AD DR  THEN 
FC0UNT:=7C0 UNT+1 ; 

T :  =FW  DS. F  JUMPLIST; 

WHILE  TOHIL  DO 
BEGIN 

I?  PS. JUMP  ADDRTO  =  TS.JUMP  ADDRTO  THEN 
FCOUNT: =FCOUNT+1 ; 

T : =TS. NEX  T  FJUMP; 

END; 

P: «P3. NEXT  FJUMP; 

EN  D  ; 

DELSUMFJMP:  =  (FCOUNT+  1)  *FJU MPCONST; 

END;  (*  MOD  SUMTOTFJMP  * 


*  MOD  SUMTOTSER:  SIMULAIES  THE  CHANGE  TO  TOTAL  LEN  * 

*  EICAUSE  OF  THE  MERGING  OF  ADJACENT  SEGMENTS.  * 


RCCEEUR  E  MOD  SUMTOTS  BR  (CUR  ,FW D  :  T3LP  TR: 

VAR  DE  LSUMSBR  Z  :  I NTEGE  R) 
VAR  P,  T  ,  PP  ,TT  :TBI?T  R;  SCQUNT:  INTEGER; 

EEGIN 

SCCUNT  :  =  0  ; 

F  :=CURS.SEFLIST; 

WHILE  FONII  DO 
EEGIN 

T:  =FWD  J.SBRLIST; 

WHILE  TONIL  DO 
BEGIN 

pp  •  — pg  m  s  b  R  • 

IF'fPsItAg’s  5BRB3EAK  THEN 
EEGIN 

• . p  ^ ^  SER* 

IF*TTs!tAg’=  SBR3REAK  THEN 
IF  FPS.SBRZ  =  TTS.SBRZ  THEN 
S COUNT: =S CO UNT+1 ; 

END; 

T  :  =  TS .  NEX  T  S  BR  ; 


T : =13 . NEX  T  SBR ; 

END  ; 

P : =PS . NEXT  SBR; 

END  *  ” 

DEL  SUMS  ERZ  :  =  SCO  UNT*SBRCONST ; 
END; 


(*  MOD  SUMTCTS  ER  * 


GI 

CUR:  =CURSEG: 

CIAGS  NEST1LENGTHCHK  (T EMPFILS ,CUR , GOO D  SEGMENT) 
SUMTOT :  =0: 

SUMSERC:=Q; 

IF  CURS.  S3RLISTONIL  THEN 

SERSUM  (CUR3.SBRLI  ST.SUMS3RC)  ; 

SUMCUR  :=CURS. LENGTH +SUMSBRC; 

WHILE  (CURS.  TABLELI  STONIL)  DO 


EEGIN 

FWD :  =CUR2.TABL2  LIST; 

SUMSERF:  =  0; 

IF  FKD3.  SERLISTONIL  THEN 

S BRSUM  (FHD3.S ERLIST.SUMSBRF)  ; 

SU MFWD:=FWD3. LENGTH* SUMS BRF ; 

SU  MTOT  :  =  SUMC  UR+  SUM  FW  D ; 

MOD  SUMTCTFJMP ( CUR,FWD,DELSUMFJMP)  ; 

M0D“SU8TCTS3R  (CUR  ,  FWD -DEL SUMS BRZ)  ; 

SUMTCT: =  SUMTOT- DELSU MFJMP-DELS OHS BRZ ; 

IF  SUMTOK=LIMIT  THEN 
BEGIN 

MERGES  (CUR.  FWD)  ; 

CUR 3. LENGTH :=CUR3. LENGTH-DELS UMS3RZ; 
SUMCUR:=SUMTOT; 

END 
ELSE 
B  5  Gl  V 

RESET  INCLUDED  (FWD3.  SBRLIST)  ; 

RESET“INCLODED  (CUR3.  S3RLIST  ; 

CUR :=TWD; 

DIAGS  NEST1 LENGTHCHK (TEMPFILE  ,CUR , 

GOOD  SEGMENT)  ; 

SUMCUR:  =  CUR  (2. LENGTH; 

SUMS  EEC: =0: 

SBRSUM(CURa)  .SBRLIST,  SUHSBRC)  ; 

SUMCUR:  =  SUMCUR  +  SUMSBRC; 

END; 

SUMTOT:  =  0 ; 

END; 

IF  CUR3.  SBRLISTONI  L  THEN 

RESET  INCLUDED  (CURa. SBRLIST)  ;  (*  ALL  INCLUDES  PST*) 

CURSEGaTCOAL  ESCED:  =TRUE; 

END;  (*  COMBINE  * 

(* - - - - - - - - - - - * 

BEGIN 

CUESEG  :*S  BR; 

S3BINVNEST:  =  SBPINVNEST+1  ; 

DIAGS  NEST6SBRINVCHK (TEMPFILE, CURSEG, GOOD  SEGMENT, 

SBRITTVNSST)  ; 

CHK  SEGSIZ  E  (CUESEG  , LI  MIT)  ; 

CC all NEfCUF.S EG, LIMIT)  ; 

SERINVNEST;  =  S3EINVNES  T-1 ; 

END; 


(*  COALESCE  * 


l'  *=======================  =====  =  =  ==  =  ========  ==  =  =  =  =  =  =  =  =  ==  =* 

*  INSTRUCTIONS:  PRINTS  OUT  THE  SEGMENTED  CODE  TOGETHER  * 

i*  WITH  OTHER  INFORMATION  TO  USE  THE  SEGMENTED  CODE.  * 

r+  DOES  THIS  BY  FIRST  CHECKING  THE  SEGMENT  TABLE  AND  * 

f*  ASSIGNING  A  MEMORY  MODULE  NUMBER  TO  SPECIFIC  LCCA-  * 

*  TICNS  IN  THE  TABLE  WHERE  S  BR  BREAKS  OCCUR.  AM  * 

(*  I  MEL  I  ED  ASSIGNMENT  IS  MADE  TO  THE  FIRST  SBR  AS  A  * 

*  START  POINT.  OTHERS  ARE  INCLUDED  IF  THERE  IS  A  EFK*‘i 

i'*  LEADING  TO  IT.  ONCE  MODULES  ARE  ASSIGNED  THEN  CCD E* 
i*  WITH  PROMPTS  ADDED  ARE  COPIED  FROM  THE  ORIGINALS.  *\ 

*  THESE  COPIES  ARE  THEN  PRINTED  OUT.  *) 

/*  =====  =  ===  =  =  =  =  =  ==========  =======  =  =========  =  =  =  =  ===  =  ===* 

PROCEDURE  INSTRUCTIONS  (VAR  0  UTFILS  .  MESSA  GEF ILE  , 

T  EM P FILE: TEXT  ;  3UILT  CODE:  CODEPTR; 

SEGT3L:  TBLPTR :  PART  NUM.-INTEGER; 

PA  RTI TIC  N : REAL ;  GOOD  SEGMENT : ECOL EAN)  ; 

VAR  HEAE_MEMODUL  E: TBLPTR; 

1*— - — — - - - - - — * 

*  BID  MEMODULNODES:  BUILDS  THE  MEMODULES  BASED  CN  THE* 

*  BREAKS  ENCOUNTERED  IN  THE  SEGTBL  *) 

* — - - - - — - -  —  - 

ROCEDURE  ELD  MEMCDULENODES ( SEGTBL: TBLPTR ; 

VAR  HEAD  MEMODULS:  TBLPTR)  ; 

VAR  TAIL  M  EMODULE,  SEG  :  T3IPTR; 

MEMCOUNT  :  INTEGER; 


I* - —  — - - - - - - - — - - - — *) 

*  INSERT  MEMODULENOD  ES:  INSERTS  A  MEMODULENODE  INTO*) 
*  THE  5EMODOLELIST.  IT  MUST  FIRST  CHECK  TO  SEE  * 

*  THAT  IT  IS  NOT  ALREADY  ACCOUNTED  FOR  AS  THERE  * 

*  MAY  BE  MULTIPLE  INVOKES  OF  THE  SAME  BREAK.  *) 

- - - - - - - - - - - - - \ 

RCCEDURE  INSERT  M EMO DUL ENODSS (SEGTBL: TBLPTR : 

VJP.  HEAD  MEMODULS, TAIL  M SMODUL E : TBLPTR ; 
VAR  ME  MCT3UNT:INTEGER)  ;” 

VAR  INSERT  :  TELPTR; 


* — --  - — - - - -  —  - - —  -----  - — * 

*  NOT  IN  MODOLELIST:  CHECKS  TO  SEE  I?  IN  LIST  * 
*-- — -  — - - - —  —  - - - - - * 


FUNCTION  NOT  IN  MOD OLELIST (S EGT3L, HEAD  MEMODULS 

~  ~  “  -.TBLPTR): 

EOOLEAN; 

VAR  S : TBLPTR; 

BEGIN 

S:  =  H  EAD  MEMO  DUL  E; 

NOT  IN  ^CDULELIST:=TRUE; 

IF  507711  THEN 
BEGIN 

WHILE  SONIL  DO 
BEGIN 

IF  S3.SEGTBLS  =  SEGTBL  THEN 
NOT  IN  MODULE  LIST:  =FALS  E; 

S:=S37N  E7T; 

END; 

END; 

END;  (*  NOT  IN  MODOLELIST  *) 

(♦ . . - - * 

EEGIN 

IF  NOT  IN  MCDULELIST  (SEGTBL, HEAD  MEMCDULE)  THEN 
EEGI7I  “  “ 

NEW  (INSERT,  ME  MODULE)  ; 

I NSERT3.  TAG:  =  M  EMODULE: 

I  N SERI 3 .  ME MNU  M :  =  ME  MCOU  NT ; 

M E MC 0 U NT :  =  MEM  COUNT*  1: 

INSERTS. 0FFSET:  =  -SEGTBL3.  START  AD  DR  ; 

INSERTS. HIGHO FFSET: =- (SEGTBL3.5TART  ADDR  CIV 

10  0); 


INSERTS. LOWCF  FSET  :=- (S  EGTBL3 .  START  A  DCF. 

1  00*INS  ER T®.  Bl GHOFF SET)  ; 
INSERTS. RETUR  N CODE  NEEDED:  =FkLSE; 

I N SE RT S. CODELIST  :  =  TIIL: 

INSSRTa.SEGTBLS: =SEGTBL ; 

INSERT2.NEXT:  =  NIL; 

IF  HEAD  MEMODULE  =  NIL  THEN 
HEAD  BEMODU  LE : =INSERT ; 

IF  T  All  MEMODULE  <>  NIL  THEN 
TAIL  BEMODULE®.NEXT:=INSERT; 

TAIL  MEMODULE  :  =  I NS ERT; 

END;  “ 

END;  (*  INSERT  MEMODULENODES  *) 

(* - - - . “ - - — -*) 


i 


* . . - - - *] 

'*  FECURSE  BLD  MEMODULENODES:  IS  THE  RECURSIVE  PART  *) 

*  CF  THE  BLT  MEMNODE  ROUTINE.  GOES  WITHIN  THE  * 

*  THE  SBRFIRST  THEN  DOWN  THE  SBRLIST.  * 

*  RECURSION  IS  USED  TO  TRAVERSE  THE  SEGTBL.  *) 

f  ♦  —  _  __  —  __  _  *  ______  _ _  \ 

PCCEEURE  FECURSE  BLD  MZMNODES (SEG: TBLPTR: 

VAR-  HEED  MEMODULE  ,  T  AI  L  MEMODULE  :  TBLPTR 

VAR  MEMCOUNT:  INTEGER) 

VAR  SEG  SBR,SER,  SBRLlTBLPTR; 

BEGIN  ~ 

SEG  SBR:  =  SEG®.TABLELIST; 

WHITE  SEG  SERONIL  DO 
BEGIN  ~ 

INSERT  MEMODU  LEN  ODES  (SEG  S  BR. HEAD  MEMODULE, 

tail  memo  dute,  memccunt) 

SEG  SB R :-SEG  SBRS. TABLE LIST ; 

END;  “ 

SEG  SBR:  =SEG; 

WHITE  SEG  SERONIL  DO 
BEGIN  - 

IF  SEG  SBR3.S  ERLISTONIL  THEN 
BEGIU 

S B RL:=  SEG  SBR3. SBRLIST; 

WHILE  SBRIONIL  DO 
EEGIN 

SBR: - SBRL®. SBR ; 

IF  S3  R® . TAG  =  S 3R BREAK  THEN 

INSERT  MEMODULENODES (SBR®. SERZ, 

HEAD  MEMUDULE, TAIL  MEMODULE  ,  MEMCCUNT) 
IF  SB  R®.  TAG  =  SBRBBEAK  THEN 
SBR  :=S3R®.SBRZ: 

RECURSE  BLD  MEMNODES  (SBR, 

HEAD  SEM0EULE,TAIL  MEMODULE, 

MEMCOUNT) 

SBRL; =SBRL®. NEXT  SBR; 

END; 

END  ; 

SEG  S B R :  =  S EG  SBR3.TA3LELIST; 

END;  ~ 

END;  (*  RECURSE  BLD  MEMODULENODES  * 


I EGIN 

BEAD  M  E  MODUL  E  :=N IL; 

1AII~MEM0DULE:=NIL; 

MEMCCUNT  :=1  ; 
cgG • =SEG TBL * 

INSERT  MEM06ULENODES  (SEG, HEAD  MEMODULE. 

T75IL  MEMODULE, MEMCCUNT)  ; 
RECURSE  ELD  MEMNODE  S  (SEG,  HEAD  MEBODULE. 

TIIL  MEMODULE,  MEMCCUNI)  ; 
END;  (*  BLD  MEMODULENODES  *j 
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*  BID  MEMO DDL EC CDE:  THIS  ROUTINE  BUILDS  THE  CODE  FOR  * 

*  T"HE  MEMORY  MODULE  CODELISTS.  IT  WILL  JUSTIFY  ALL  * 

*  THE  ADDRESSES  AND  ADD  EREAK  CODE.  * 


ROCEEURE  BLD  MEMCDULECODE  (BUILT  CODE: CODEPTR ; 

VAS  HEAD  MEHODULS  :TBL?TE) 

VAE  CURMEM  :TBLPTR; 


*  ELD  A  MEMORY:  THIS  ROUTINE  INITIALIZES  THE 

*  RTCTJRSIVE  PROCESS  THAT  WILL  BE  DONS  IN  THE 

*  FORM  MEMORY  ROUTINE. 


FOCECURE  BLD  A  MEMORY  (BUILT  CO DE : CO DEP TR : 

-  “VAR  HEAD  MEMODULE:T BLPTR 

“  CURMEM:  TBLETR) 

VAR  AD  DR  ESS  S  :  INTEGE  R  ; 

CODE  H.CCCE  T:  T  BLPTR  ; 

SEG:IBLPTR:“ 


*  FORM  MEMORY:  BUI 

*  COTJE  COMPLETE 

*  ROUTINE  RECURS 


IDS  A  COMPLETE  MEMORY  MODULE  * 
WITH  BREAK  CODE  AND  JUSTIFY.  * 
ES  ON  EACH  SBR  ON  THE  SBRIISTS  * 


BOCEDURE  FORM  MEMO 
“VAR 


VAR  CODE_HH,CODE_ 


RY  (BUILT  CODE.-CODEPTR; 

HEAD  MEMODULE, CURMEM, SEG, CODE  H 

CODE  T :  TBLETR 
VAR  ADDP.ESSSflNTZGER) 
TT,SER,SBRL:T  BLPTR; 


*  PROCESS  SEG:  T 

*  SEGMENT  TABL 


AXES  CARS  OF  ONE  SEGMENT  IN  THE* 
E'S  WORTH  OF  CODE.  * 


PROCEDURE  PROCESS 


VAR  START, STOP: 


SEG ( BUILT  CODE : CO  DEPT  R  ; 

VAR  HEAD  MEMO DU IE 
CU  RMEM : T  BLPTR :  5  cG :T3LPTR 

VAR  CODE  HH, CODE  TT : TEIPTR 
V  AR“ ADDRESS'S :  INTEGE3) 

INTEGER; 


*  COPY  CODE:  COPIES  CODE  FROM  A  START  TO  A 

*  SIT3F  POINT  OF  THE  SUILT_CODE 

PROCEDURE  COPYCODE  (BUILT  CODE:  CODEPTR  ; 

VAR”CODE  HH, CODE  TT :T EIPTR 
VAH  ADDRES'SS.-INTEGER 
ST  ART,  STOP:  INTEGER) 

VAR  INSERT, CURTP: TBLPTR ; 

CURCP:  CODEPTR; 

BEGIN 

CURCP :=BUILT  CODE: 

WHILE  CURCP 5)7 AADDROSTART  DO 
CURCP:  =CU  RCP2. SEQ; 

NEW  (INSERT,  CODE)  ; 

INSERTS. TAG  :=CODE; 

INSERTS.  ABS  ADDS  :  =CURC?S.  A  ADDR; 

INSERTS.  ADDRESS:  =ADDR ES SS ; 

ADDRESSS :=A DDRESSS+1 ; 

INSERTS.  KEY  CODE:  =CURC?S.  KEY; 

INSERTS.  SEQUENTIAL:  =  NIL; 


INSERTS.  SEQUENTIAL:* 
CODE  HH:  =IN  SERT; 
CODE"TT: =IN  SERT; 

REP  ETi  T 

“new  (INSERT, CODE)  ; 
CURCP: =CU  RC? S. SEQ; 
INSERTS. T  AG: =CODt: 


<* 


INSERTS- A 3S  ADDR: =CURCPS . AADDS ; 
INSERTS.  A  DD12SS:=ADDRESSS; 
ADDRESSS: =ADDRES3S+  1 ; 

INSERTS.  KEYCODE:=CURCPS. KEY; 
CODE  TTS.  SEQUENTIAL: -INSERT  ; 
CODE“TT:  =  INSERT; 

UNTIL  7CUP.CPS.  AADDR  =  STOP); 

CODE  TTS. SEQUENTIAL:  =NIL; 


CCPYCODE  *j 


— - - - — - - - - —  -* ) 

*  ADD  RETDRNCODE:  ADDS  SBR  RETURN  CODE  TO  THE*) 

*  Till  SEGMENT  OF  THE  INVOKED  S3R  *) 

- - — -  - - — - *) 

PROCEDURE  ADD  R  ETURNCODE  (  VA  R  CODS  TT  :  TELPTP. ; 

VAR  ADDRESSS:  INTEGER)  ; 

VAR  INSERT-.TBLPTR; 

BEGIN 

CODE  TTS  . KE  YCODE  :  =STO  ;  (*INVSBR  CHG  2  ETC*) 

NEW  (INSERT,  CODE)  ; 

INSERTS. TAG :=CODE; 

INSE  RTS.  ADD  RESS: = ADDRESSS; 

ADDRESSS :=ADDRESSS+1 ; 

INSERTS.  KEY  CO DE:=DI SPLAY REG STORE;  (*DISPLAY*) 
CODE  ITS . SEQUENT I AL:=INSERT; 

CODE“TT: =IN  SERT; 


NEW  (INSERT,  CODE)  : 

INSERTS. TAG:=CODE: 

INSERTS.  ADDRESS:  =ADDR  ESSS  ; 

ADDRESSS :  =  ADDRESSS+1  : 

INSERTS.  KEYCODE:=RCLIND;  (*  RCL  IND  *) 

CODE  TTS . SE QUENTIAL:  =  INSERT ; 

CODS'*!!:  =IN  SERT; 


NEW  (INSERT,  CODE)  : 

INSERTS.  TAG  :=CODE: 

INSEFTS.  ADDRESS:=ADDR2SSS; 

ADDRESSS :* A DDRESS5*  1  : 

INS  ERTS.  KEY CODE: -MANRTNREG  ;  (*  MAN  RTN  REG  *) 
CODE  TTS.SEQUENTIAL:=INSERT; 

CODE”TT: =IN SERT; 


NEW  (INSERT,  CODE)  ; 

INSERTS.  TAG  :=CODE; 

INSERTS. ADD  RES S:=ADDR ESSS; 

ADDRESSS :=A DDRESSS+1 ; 

INSERTS.  KEYCODE:  =OP;  (*  OP  *) 

CODE  TTS. SEQUENTIAL: =INSSRT; 

CODE"IT:  =IN  SERT; 


NEW  (INSERT,  CODE)  : 

INSERTS. TAG :=CODi: 

INSERTS.  ADDRESS: = AD  DR ESSS; 

AD  n  R  F  =  A  DD  p  s +  1  • 

INSERTS. KEY  COD S : =30* M ANRTNREG ;(*  + MANRTNREG*) 
CODE  TTS. SEQUENTIAL: =INSERT; 

CODE”TT: =IN SERT; 


NEW  (INSERT,  CODE)  : 

INSERTS.  TAG  :=CODE; 

INSERTS.  ADDRESS:  =  ADDRESSS; 

ADDRESSS :  =  A  DDRESSS+1  ; 

INSERTS.  KEY  CODE:  =RS;  (*  RUN/STCP  *) 

CODE  TTS . 5E  QUENTIAL:  =  INSERT ; 

CODE”TT: =IN  SERT; 
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CODE  ITS . SEQUENTIAL:  =  NIL ; 

d;  "  (* 


ADD  RSTURNCOD 


.EDCOEE  S3RBRK  MARKINVOKED:  ADDS  CODE  FOR  A* 
S3RERK  AND  WILL  MARK  THE  INVOKED  RTN  FCR  * 
MANUAL  RETURN  CODS  * 

- * 

:edure  addcode  sbrbrk  markinvoked 

(VXR  HEAD“MEMODULE ,CU  RMEM :TELPTR 
SEG: TBLPTR :  VAR  CODE  TT : TELPTR 
VAR  ADDRESS'S:  I  NT  EGER) 
.R  INSERT, SBR,SBRL:TBLPTR; 

LB  LADD  3:  INTEGER: 


FIND  L3L:  FINDS  THE  LABEL  FROM  A  GIVEN 
ADDRESS  USING  THE  BUILT_CODE  LIST 

i NCTIC  N  FIND  LBL  (BUILT  CODE  :  CO  DEPT R : 

ADDRESS:  INTEGER)  rINTEGER; 

VAR  C  :CO  DEPTR  ; 

BEGIN 

C  •  s  PUT  T  T  COn  p  • 

WHILE  CS7  AADD&OADDRESS  DO 
C  :  =C  5).  S  EQ  ; 

FINE  LEL:  =CS.SEQS. KEY; 

END;  “  (*  FIND  LEL  * 


[* - 

*  GENCCDES3R 

*  - 

’RCCEDURE  GEN 


VAR  EELADDR 
MEMPTR : 
BEGIN 

MEMPTR  :=H 
WHILE (MEM 
MEMPTR: 
3  SLADDR :  = 

HUNDREDS: 
TSNS:=  (RE 
UN  ITS: =RE 
NEW  (INSER 
INSERTS.! 
INSERTS.  A 
ADCRESSS: 
INSERTS.  K 
IF  CODE  T 
CODE  TT 
CODE  TT: = 


ADDS  CODE  FOR  A  ERK  SER  INVOK* 


CODESBE ( V  AR  CODE  TT: TBLPTR; 

HEAD  MEMODULE, CUR MEM, SER: TBLPTR; 

7 AR  ADDRESSS:  INTEGER)  ; 
,  HUNDREDS, TENS, UNITS: I NT EGER; 
TBLPTR; 

EAD  MEMODULE; 

ETH3.SESTBLSOSBRa.SBRZ)  DO 

SBR3.SB3ZS. START  ADDR+MEMETRS. 

OFFSET; 

=RELADDR  DIV  100: 

LADDR-  (HUNDREDS*  100)  )  DIV  10; 
LADDR-  (HUNDREDS*100+TENS*10)  ; 

T, CODE)  : 

AG : =CODE ; 

DDRZSS:=ADDRESSS; 

=  ADDRESSS  +  1 ; 

EYC0DE:=L3L;  (*  LEL  *) 

T  <>  NIL  THEN 
S.  SEQUENTIAL:  =INSE RE¬ 
INSERT; 


NEW  (INSERT, CCDE) ; 

INSERTS. T  AG:  =CODE: 

INSERTS.  ADDRESS :=AD DRESS S; 

ADCRESSS:  =  ADDRESSS  +  1; 

INSERTS. KEYC0D5:  =  FIND  LBL  (*  KEY  LEL  *) 
(BUILT  CODE, S3P3.SBRZS. START  ADDR)  ; 
CODE  TTS.  SEQUENTIAL  :  =INSERT  ; 

CODE~TT:= INSERT: 


N EW  (IN SER  T.CODE)  : 

INSERTS.T  AG:  =CODE; 

INSERTS. A  DDR  ESS :=ADDRESSS; 
ADERESSS: =  ADDRESSS+1; 

INSERTS.  K EYCODS  :  =  STO; 

CODE  TTS. SEQUENTIAL :=INSERT; 
CODE"TT:= INSERT ; 

NEW  (INSERT, CODE)  : 

INSERTS. T  AG:  =COD£: 

INSERTS. ADDRESS :=ADDRESSS; 
ADERESSS:  =ADDRESSS  +  1; 

INSERTS.  KEYCODE:=DISPL  AY  REG  ST  OR 
CODE  TTS. SEQUENTIAL: =1 NS ERT ; 
CODE^TT: = INSERT ; 

NSW  (INSER  T.CODE): 

I N  SERTS.  T  AG  :  =CODE  ; 

INSERTS. ADDRESS :=ADDRESSS; 
ADERESSS: =ADDRESSS+1; 

INSERTS.  KEYCODE:  =  OP  ; 

COEE  TTS. SEQUENTIAL: =INSERT; 
COCE“TT:  =  INS  ERT ; 

MEW  (INSER  T.CODE)  : 

INSERTS. T  AG: =CODE; 

INSERTS. A  DDR ESS: =ADDRESSS; 
ADERESSS:  =ADDRESSS  +  1; 

INSERTS.  KEYCODE  :  =  20  +  M ANRTNR  EG; 
COEE  TTS. SEQUENTIAL : =INSERT ; 
CODE“TT: = INSERT; 

NEW  (INSERT, CODE)  : 

INSERTS. T  AG: =CODE: 

INSERTS.  ADDRESS  :=ADDRESSS; 
ADERESSS:  =ADDRESSS+1; 

INSERTS.  KEYCODE:=CURMEMS.  MEMNUM 
COEE  TTS. SEQUENTIAL: =INSERT; 

CO  DE~TT:  =  INS  ERT ; 

N  EH  (IN SER  T.CODE) : 

INSERTS. T  AG:=CODE: 

INSERTS. ADDRESS :=ADDRESSS; 
ADERESSS: =ADDR  ESSS ♦ 1 ; 

INSERTS.  KEYCODS:  =  STOIND;  (* 

COEE  TTS. SEQUENTIAL : =INSERT ; 
CODE”TT:= INSERT; 

NSW  (INSERT, CODE)  : 

INSERTS.T  AG:  =CODE: 

INSERTS. ADDRESS : =ADDRESSS ; 
ADERESSS: =ADDRSSSS+ 1; 

INSERTS. KEYCODE:=MANRTNREG:  (* 

COEE  TTS.  SEQ USNTIAL : =INSERT ; 
CODE^TT: = INSERT; 

NEW  (INSERT, CODE)  : 

INSERTS.  T  AG: =CODE: 

INSERTS. A  DDRESS:=AD DRESS S; 
ADERESSS:  =AD  DR  ESSS  +  1 ; 

INSERTS.  KEYCODE:  =  ME NPTRS.  MEMNUM 
CODE  TTS. SEQUENTIAL : =INSERT ; 
CODE“TT:= INSERT ; 

NEW  (INSERT, CODE)  : 

INSERTS.T  AG:  =CODS: 

INSERTS. A  DDR  ESS :=AD DRESS S; 
ADERESSS:  =  AD  DR  SSSS+ 1; 


*  STORE  *) 


;  (*DISP*) 


(*  OP  *) 


(*  INCH  *) 


(*  MEM#  *) 


IND  STO  *) 


MAN  ETN  *) 


(*  MEM  #*) 
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INSERTS.  KEYCODE  :=DECIKAL;  (*  .  *) 

CODE  TTS.  SEQUENTIAL :  =  INSERT ; 

CO  EE^TT:  =  INSERT  ; 

NEW  (INSERT, CODE)  ; 

INSERTS. T  AG: =CODE; 

INSERTS.  ADDRESS  :  =  AD  DRESS  3; 

ADERESSS:  =ADDRESSS+1: 

INSERTS. KEYCODS:=HUNDREDS:  (*  HUNDREDS  *) 

CODE  TTS. SEQUENTIAL: =INSERT ; 

C  ODE^TT:  “INSERT; 

nE«  (INSERT, CODE)  ; 

INSERT  S.T  AG:=CODE; 

INSERTS.  A  DDRESS :=ADDRESSS ; 

ADERESSS: =ADDRESSS+1: 

INSERTS. KEYCODE:  =  TENS;  (*  TENS  *) 

CODE  TTS.  SEQUENTIAL: =INSERT ; 

COEE~TT:=  INSERT  ; 

NEW  (INSERT, CODE)  : 

INSERTS. TAG:=CODE; 

INSERTS. ADDRESS :=AD DRESS S; 

ADERESSS:  =ADDRESSS ♦  1 ; 

INSERTS.  KEYCODE:  =  UNITS;  (*  UNITS  *) 

CODE  TTS. SEQ UENTIAL : =INSERT ; 

COE E~T T :  =  I N  S  E  RT  ; 

NEWjflNSERT.CODE)  : 

INSERTS. T  AG: =COD£: 

INSERTS. A DDRESS :=ADDRESSS; 

ADERESSS:  =ADDRESSS+1; 

INSERTS. KEYCODE:  =  RS  ;  (*  R/S  *) 

INSERTS. S  EQUENTIAL: =NIL; 

CODE  TTS.  SEQUENTIAL:  =  INSERT  ; 

CO EE“TT:= INSERT; 


ID;  (*  GENCODE_SER  *) 

JN 

IF  S  EGS.  SBR  LISTONIL  THEN 
BEGIN 

SERL:=SEGS.S8RLIST; 

WHILE  S  BRLONIL  DO 
BEGIN 

SBR  :  =  S BRLS.  SBR; 

IF  S3RS .TAG =  S3R  BREAK  THEN 

G ENC0DES3E (CODE  TT , HEAD  MEMODULE, 
CURIEM,S3R,IDDEESSS) ; 
SBRL:=SBRLS.NEXT  SBR; 

END; 

EN  E  • 

D;-‘  *  (*  ADDCODS  SBR3RK  MARKINVOKED  *) 


(* - T - 

*  JUSTIFY  CODE:  SETS  ALL  THE  JUMPS  AND  ACDRS  *) 

(*  —  —  —  — - - - - -*) 

■80  C  EDUR  E  JUSTIFY  CODE (SEG, CURMEM : TBLPTR ; 

VAS  CODE  HH :  TEL  FT  ?.)  ; 

YAR  T, F.JMPTR rTBLPTR; 

D£ I ADDS, RELADDR, ABS ADDS: INTEGER; 


DETBL:  ADVANCES  THE  CODEFIRS 
,  2,  AND  3 -STEP  INSTRUCTIONS. 


*  ADVANCE  CO 

*  OF  THU  1 

*  —  - — — — 

ROCSDURE  ADVANCE  CODETBL  (VAR  FrTBLPTR); 
EEGIN 

IF  Fa).  KEY 
E :=F3. S 


* 

* 

-# 


ELSE 

IF  F3.K 
F:  =F3 


CODE  IN  STEP  3  THEN 
EQUEtITIALa).SEQUENTIAL5).  SEQUENTIAL 

a).  SEQUENTIAL 


ELSE 
IF  F3 
THE 
ELSE 
F:  = 

^END  ; 
t^EGIN 

F : =CCCE  HH; 
WHILE  FONI 
BEGIN 

IF  Fa).X 
BEGIN 
IF 

T 

ELS 

T 

ABS 

ABS 


EYCODE  IN  STEP  2  THEN 
.  SEQUENTI ALB . SEQUENTIAL^ . 

SEQUENTIAL 


.KEYCODS  IN  (STEP  1+(. 71,76. 
F3. SEQUENTIAL; 


N  F:=F3.SEQU2NTiAr5)^EQUfeNTI] 

L; 

(*  ADV  ANCE_CODET  EL  Jj 


L  DO 

EYCODE  IN  (5TE?_3+STEP_2)  THEN 


B 


ELS 

B 


END; 

D; 


END: 
ADVANCE 


F3. KEYCODE  IN  STEP  3  THEN 
^=Fa.SSQUENTIALa. SEQUENTIAL 

:=F3. SEQUENTIAL; 

ADDR :=T3.  KEYCODE+100; 

A DDR: =ABS ADDR 

+  T 3.  SEQUENTIAL3.  KEYCODE; 
SSG3. STOP  ADDR  >=  A3SADDB  THEN 
E'GI  N 

DELADDR:  =A3SADDR-T3. ABS  ADDR; 
CELADDR:  =T3. ADDRESS  +  DELlDDR; 

T3 ,KSYCODE:=RELADDR  DIV  100; 

T3. SEQUENTIALB. KEYCODE : = 

REL ADDR-  (1  00*T3  .  KEYCODE)  ; 
ND 
E 

EGIN 

JMPTR :=SEG3 . F  JUMPLIST: 

WHILE  JMPTR3.  HUMP  ADDRTOO 

ABSADDR  DO 

JMPTR:  = JMPTR 3. N  EXT  FJUMP; 

T3. KEYCODE: =  JMPTR  3.  “ 

JUMP  INTADD RTC1  ; 
T3. SEQUENT I AL3. KEYCODE : =JMPTR3. 

JUMP  INTADDRTC2 ; 

ND; 


_C0DETBL(F)  ; 


(*  ’USTIFY  *) 


*  *  * 


A  CDCO  CE_F  JMP  :  ADCS  CODE  FOR  JUMP  BREAK  * 

PROCEDURE  ADDCODE  FJM?(VAR  HEAD  MEMODULE,CURMEM, 

SEC, CODE  TT: TELPIR ; 
VAR  ADDRESS'S:  INTEGER)  ; 
VAR  CUR. INSERT, JUMPTR, MEMPTR : TBLPTR ; 

ADCCRTOI , ADDDRT02, MEM  ADDDRTO: INTEGER; 

DEL TA^AD DRESS: INTEGER  ; 

(* - *} 

l'*  GEN  JUMPCOCE  SETINTADDRS:  GENERATES  THE  * 

r*  jump  code  "End  sets  the  intaddr  fields  *) 

r*  OF  THE  SEGMENT  TA3LE  F  JUMPLIST.  *) 

(*  INTADDR  ARE  THE  ADDRESSES  LOCAL  TO  THAT*) 
i*  SPECIFIC  PIECE  OF  CODE  (THE  PROMPT).  *J 

PROCEDURE  GEN  JUMPCODE  SETINTADDRS 

(VAR  CODE  TT:  T BLPTR;  “VAR  ADDDSESS :  INTEGER  : 

VAR  JUMPTR  :  TBLPTR)  ; 

VAR  INSERT:  TBLPTR  ; 

HUNDRED S, TENS, UN ITS, REL ADDRESS: INTEGER; 
BEGIN 

HUNDREDS: =JUMPTRS. JUMP  A  D  DR  T0 1 ; 

TENS:  =  JUM  PTRS.  JUMP  ADD'RT02  DIV  10; 

UNITS:  =JUMPT3S.  JUMF_ADDRT02-  (10  +  TENS)  ; 

NEVi  (INSERT, CODE)  : 

INSERTS).  TAG:=CODS; 

INSERTS.  A  DDR  ESS:  =ADDRESSS; 

RELADDRESS:  =  ADDRSSSS; 

ADCRESSS:  =ADDRESSS ♦ 1 ; 

INSERTS.  K£YCODE:=STO;  (*  STO  *) 

IF  CODE  TTONIL  THEN 

CCDE  TT  3. SEQUENTIAL: =1  NS SRT; 

COC£__TT:  =  INSERT; 

NEW  (INSERT, CODE)  : 

INSERTS.  T  AG:  =COI>£: 

INSERTS.  A  DDRESS:=ADDRESSS; 

ADDRESSS: =ADDRES3S+1 ; 

INSERTS. KEYCODE:=  DISPLA  YREGSTORE  ;  (*DISF*) 
CODE  TTS.  SEQUENTIAL : =1 NS  ERT ; 

CO  CE^TT:  =  INS  ERT ; 

NEW  (INSERT, CODE)  ; 

INSERTS. T  AG: =CODE: 

INSERTS.  A  DDR  ESS:  =ADDRESSS; 

ADCRESSS:  =ADDRESS5  +  1 ; 

INSERTS. KEYCODE:=CE;  (*  CE  *) 

CODE  TTS.  SEQUENTIAL  :  =  INS  ERT  ; 

CO  EE^TT:  =  INS  ERT ; 

NEW  (INSERT, CODE)  ; 

INSERTS.  TAG:=CODE: 

INSERTS.  ADDRESS:=ADDRESSS; 

ADCRESSS: =ADDRESSS  + 1 ; 

INSERTS. KEYCODE:=  JUMPTR  S.  MEM  ADDR  ; 

CODE  TTS. SEQUENTIAL:=INSSRT ;  ~ 

CO  C  E^TT;  =  INS  ER  T ; 

NEW  (INSERT, CODE)  : 

INSERTS.  T  AG: =CODE: 

INSERTS.  ADDRESS:  =ADDRESSS; 

ADCRESSS:  =ADDRESSS  +  1: 

INSERTS.  K  EYCODE:=  DECIMAL;  (*.*) 

CODE  TTS.  SEQUENTIAL :  =  INSERT ; 

COCE"TT:= INSERT: 


SEW  (INSERT, CODE)  ; 

INSERTS.TAG:  =CODE: 

INSERTS. A  DDR ESS: =A DDR ESSS; 

ADERESSS: =ADDRESSS+ 1 ; 

INSERTS.  KEYCODE:  HUNDREDS:  (*  IOCS  *) 

CODE  TTS.  SEQUENTIAL :=INSERT ; 

COCE"TT:  =  INSERT; 


NEW  (INSERT, CODE): 
INSERTS.T  AG:=CODE; 


INSERTS.  A  DDRES  S:=AD  DR  ESS  S; 
ADERESSS: =ADDRESSS+1; 
INSERTS. KEYCODE:=  TENS; 

CODE  TTS.  SEQUENTIAL:=INSERT ; 
COEE"TT*.  =  INSERT; 


(*  10S  *) 


NEW  (INSERT, CODE)  ; 

INSERTS. T  AG:=CODE; 

INSERTS.  A  DDR  ESS:  =A  DDR  ESSS; 

ADDBESSS: =ADDRESSS  +  1 ; 

INSERTS. KEYCODE:  =  UNITS;  (*  IS  *) 

CODE  TTS.  SEQUENTIAL  :  =  INSERT  ; 

COEE“TT:  =  INSERT; 


i 


NEW  (INSERT, CODE)  ; 

INSERTS. TAG:=CODE; 

INSERTS.ADDRESS:=A  DDR  ESSS; 

ADERESSS: =ADDRESSS  +  1 ; 

INSERTS. KEYCODE:  =  RS;  (*  R/S  *) 

CODE  TTS.  SEQUENTIAL:  =  INSERT; 

CO  CE“TT :  =  INS  ERT ; 

CODE“TTS.  SEQUENTIAL :  =  NIL; 

JUMPTRS.  JUMP  INTADDRT01  :  =RELADDRESS 

DI7  100; 

JUMPTRS. JUMP  INTADDRT02: =RELADDRSSS-  100* 

JUMPTRS.JOMP  I  NT  ADD  RTC1  ; 
END;  (*  GEN  JUMPCODE  S3TINTADDR  *) 

* - - - = - r - * 

EGIN 

IP  SEGS.TABLELISTONIL  THEN 
BEGIN 

MEMPTR : «HE  AD  MEMO  DULE: 

WHILE  NOT  (SEOS.  STOP  ADDR+  1  =  MEMPTRS. 

SSGTBLSS. START  ADDR)  DO 
ME  MPT  R :  =  ME  MPTRS .  NEXT  ; 

ADDDRTO 1:=MEMPTRS.SEGTBLSS.  START  ADDR 

T3I7  100; 

ADDDRTO  2: =MEM?TRS .SEGTBLSS. START  ADDR 

-  (10  0  *  ADT3DRTO  1)  ; 

ADDDRTO 1:= ADDDRTO 1+MEMPTRS. HIGHOFFSET ; 
ACDDRT02:  =  ADDDRT02  +  MEMPTRS.  LOWOFFSET; 

MEM  ADD  DRTQ:  =  MEMPTRS. MEMNUM; 

NEW7JUM  PTR , FWD  JUMP); 

WITH  JUMPTRS  DO 
BEGIN 

JUMP  ADDRT01  :  =  ADDDRTO  1; 

JUM  P“ ADDRT02 : =ADDDRT0  2; 

MEM  IDDR:=MEM  ADDDRTO; 

END;  ” 

GEN  JUMPCODE  SETINT ADDR 

”  (CODE  TT,ADDRESSS, JUMPTR)  ; 
DISPOSE  (JUMPTR, FWD  UUMP)  ; 

END*  — 

IF  SEGS.F  JUMPLISTONIL  THEN 
BEGIN  — 

JUMPTR: =SEGS. F  JUMPLIST; 

WHILE  JUMPTROHIL  DO 
BEGIN 

MEM  PTR :  =  HEAD  MEMODULE; 
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WHILE  NOT  ((JUMPTRd).  JUMP  ADDRTC  >= 

MEMPTR3.  SEGTBLSa).  START  ADD?)  AND 
(JUMPTR3.  JUMP"  ADD  ?TO<  = 
MEBPTH8. SEGTBLSS.STOP  TDDR))  DO 
MEMPTR  :=MEMPTRa> .  NEXT;  ~ 

DELTA  ADDRESS  :=JUMPTR2.  JUMP  ADDRTO- 
~  MEMPTR$.SEGT3LSd>.  STlRT  AD  DR  ; 
ADDDRTOI  :=DELTA  ADDRESS  DIV  1 0TJ ; 
ADDDRT02i=DELTA“ADDRESS-1 00* 

ADDDRTOI; 

MEM  ADDDRTO;  =MEMPTRS. MSMN UM ; 

JUMTTR3.  JUMP  ADDRT01 :=ADDDST01 ; 
JUMPTR3. JUMP”ADDRI02: =ADDDRT02 ; 
JUMPTRa).  MEM  IDDR:=MEM  ADDDRTO; 

GEN  JUMPCODE  SETINTADCRS 
(CODE  TT,  ATDRESSS  .JUMPTR) ; 

JUM  PTR :  =J  UMPTRa) .  NEXT  FJUMP; 

END; 

EN  E ' 

END;  ’  (*  ADDCODE  FJKP  *) 

(* - = - *) 

BEGIN 

ST  ART  :  =SEGa>.  START  ADDR; 

STOP  :  =  SEG3  .STOP  ACDR; 

COPYCOEE (BUILT  CODE, CODE  HH-CODE  TT , 

“ADDRESSC,  START,  STOP)  ; 
IF  (CURMEMal.RETURNCODE  NSEDE  D)A  ND 

(SEG=CURMEM5>.  SEGTBLS)  THEN 
ADD  RETURNCODE  (CODE  TT,  ADORES  SS)  ; 

ADECOCE  FJMP(HEAD  MEMODULE, CURMEM, SEG, CODE  TT, 

a5dRESCS)  ; 

ADECODE  SB3BRK  MARKINVOKED (HEAD  MEMODULE, 

-  CURMEM  , SEG, CODE  TT,ADDRESSS)  ; 
JUSTIFY  CODE  (SSG, CURMEM, CODE  HH)  T 
END;  *  **(♦  PROCESS  SEG  *j 
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!* - - - . . *) 

*  M  A  RKIN  VCKED :  MARKS  MEMODULE  OF  SBR  WHICH  WAS  *) 

*  INVOLVED  IN  A  BREAK  FOR  A  MANUAL  RETURN.  *) 
*  ADD  RETRUNCOCE  USES  THIS  MARK  TO  ADD  CODE.  *) 

* - - - - . - - - * 

ROCEDURE  HARKINVOKED(VAR  HEAD  MEMO  DULE :  TBLPT  R; 

SER :  TBLPT  ?.)  ; 

VAR  MEMPTR,  SBR  BRKINCLUDE:  TBLPTR ; 

EEGIN 

SBR  BRKINCLUD  E:  =  SBRa).S3RZ; 

MEMPTR  :=HEAD  MEMODULE; 

WHILE  SER  BRK  INCLUDES.  T A3LELISTONIL  DO 

SBR  ERl?INCLUDE:=SBR  BR  KINCLU  DES) .  TA  ELEL  1ST; 
WHILE  HEMPTR9  .  SEGTBLSOSBR  BRKINCLUDE  DO 
MEMPTR:=MEMPTR9.NEXT;  “ 

MEMPTR  2. RETUR NCODE  NEEDED:=TRUE; 

END;  "  (*  MARKINVOKED  *) 

(* - - - * 

EEGIN 

IF  (SEGS. INCLUDED  =  FALSE)  THEN 
BEGIN 

PROCESS  SEG  (BUILT  CODE, HEAD  MEMODULE, CURM EM, 
SEG, CODE  HH  , CODE  TT  ,  ADDRESSS)  ; 

IF  CODE  H=NIL  THEN  ” 

CODE  P :  =  C ODE  HH; 

IF  CCDE  TO  NIL“*THEN 

CODE  T9 .SEQUENTIAL: =CODE  HH ; 

SEG 9 . INCLUD  ED : =TRUE ; 

CODE  T:  =  COD  E  TT; 

IF  (PEG2 .  SB  RXlSTONI L)  THEN 
BEGIN 

SERL:=SEG2.SBRLIST; 

WHILE  SBRLONIL  DO 
BEGIN 

SBR  :=SBRL9.SBR; 

CASE  SER2.IAG  OF 
S  BR3REAK: 

MARKINVOKED  (HEAD  MEMODULE,  S  ER)  ; 
'’’ABLE*  ~ 

FORM  MEMORY (BUILT  CODE, 

HE AD” MEMO DULE, CURHEM , SBR, CODE  H, 
CODE  T,  ADDRESSS)  ; 

END:  (*  CASE  *) 

SBR L;=SBRL9. NEXT  SBR; 

END; 

END; 

END; 

END;  (*  FORM  MEMORY  *) 

(* . . - - - - - * 

BEGIN 

SEG:  =  CURM  E M2. S  EGT  BLS  ; 

ACDRESSS:=0;  CODE  H:  =  NIL;  CODE  T:=NIL; 

FCRM  MEMORY  (BUILT  CODE, HEAD  MSMOUUL  E,  C  URM  EM  ,  S  EG  , 

CCDE  H,CODE  T, ADDRESSS); 

CURMEM9.COEELIST:  =CCDE  H; 

END;  “  (*  BLD  A  MEMORY  *) 

(* . . - . . . . - * 

BEGIN 

CURM  EM  :  =  HE  AD  MEMODULE; 

WHILE  CURMEMONIL  DO 
BEGIN 

BLD  A  MEMORY  jBUILT  CODE, HEAD  MEMODULE  ,CURME  M)  ; 
CURBEH9.  SEGTBLS  2.  INCLUDED  :  =  F^LS  E; 

IF  CURMEM2.S  EGT  BLS2.SBRLISTONIL  THEN 

RESET  INCLUDE  D  (CURMEM9  .  SEGTBLS9  .SBR LIST)  ; 
CURMEM:  =  CURMEM9  .  NEXT; 

END; 

END;  (*  BLD  MEMODULECODE 
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PROCEDURE  OUTPUT  INSTRfVAR  OUTFILE,  MESSAGEFILE, 

T  EMPFILE: TE  XT :  BUILT  CODE:CODE?TR 
HEAD  M EMODULE: TBLPTR ;  PART  NUM: INTEGER 

PARTITION:  REAL 
GOOD_SEGMENT:  BOOLEAN) 

* - - ,  .....................  — - — — * 

*  OUTPUT  GOODSEGS:  PRINTS  OUT  GOOD  SEGMENT  INSTRUC  * 

*  - -  - - - — - - -  — - - - - - * 

RCCEDUR E  CUT P CT  GOOD  SEG  (VAR  OUTFILE, MESS  AG EFILE : 

TEXT;  HTAD  M  EMODULE;  TBLPTR  ;  PART  N  UM :  INTEGER 

PARTITION:  REAL) 


-  -----------  ------ —  — - - - - 

*  OUTPUT  MSGF1 :  PRINTS  OUT  GOOD  SEGMENT  GENERAL  *' 

*  INSTRUCTIONS  AND  THE  PROGRAM  LISTING  BY  MEM  * 

*  MODULES.  *' 

*  - * 


PROCEDURE  OUTPUT  MS  GF1  (VAR  0  UTFILE  ,  MESS  AG  EFI LE  :  TEXT 
HERD  MEMODULE: TBLPTR;  P AR TN UM : INT EG ER 

?  ART  IT  ION:  R  EAL) 

VAR  P,T: TBLPTR ; 

STEP  TYPE:  INT  EGER; 


* 

-* 

♦ 

* 

* 

* 

♦ 

* 

>*: 


SET  STE 
PRINT 
PUT  0 


P:  SETS 
LINE  PR 
F  THE  T 


THE  KEY  CODS  COUNTER  FOR  THE 
OCEDURE.  USED  FOR  CORRECT  OUT 
1-59  CODE  (3,2,  1,0  STEP  INSTR) 


3  STE 
AAA 
X 

XXX 

XXX 

(-  12,  1 


P  2 
A 
X 
X 

1,10,9.( 


STEP  71&76  1  0 

AA  AAA  AAA  AAA 

XX  AAA  XX  (.1.) 

XX  ( .5,4. ) /(.3,2.) 

.8,7,6.) 

)  &(.0. 


PROCEDURE  SET  STE  P  (T  :  T3LPT R  ; 

VAR  STEP  TYPE: INTEGE 


BEGIN 
IF  STE 
IF  T 
ST 
ELSE 
IF 


H) 


P  TYPE 
27  KE  YCO 
EP  TYPE 


IN  (.0,1, 3, 5, 8.)  THEN 
DE  IN  STEP  3  THEN 
:  =  1  2 


EL 


CODE  IN  STEP  2  THEN 
PE:  =8 


TcD.  KEY 
STEP  TY 
SE  ” 

IF  T$.  K 
STEP 
ELSE  ~ 

IF  TS 
STE 
ELSE 

STEP  TYPE  :=  1  : 


EYCODE  IN  STEP  1  THEN 
TYPE :  =  3 


.KEYCODE  IN  (.71,76.)  THEN 
P  TYPE:=5 


END 


(*  SET_STEP  * 


* - - - - - — - - - — — - - — 

♦  PRINT  LINE:  PRINTS  OUT  ONE  LINE  OP  CODE  AT  A  * 

*  TIME.  * 

* — - - — - - — * ) 

ROCEDURE  PRINT  LINE  (VAR  OUTFILE  :  TEXT  ;  VAR  ?: 

T3LPTR  ;  VAR  S  TEP_T  YP  E  :  I NTEGE R)  ; 

*--r - - - - - - * 

>  WRITEIELS:  WRITES  T3LPTR  LBLS  IN  WHOLE  KEY  * 
i1*  CODE  FORMAT  IE.  NNN  NN  AAA  *i 

* - — - - — - — - - - * 

PROCEDURE  WRITEL5LS  ( V AR  0 UTFILE : TEXT ;  T:TBLPT R)  ; 
BEGIN 

WRITE  (OUTFILE,  '  *  )  ; 

WRITE  LEADZERC  (OUTFILE, Ta>.  ADDRESS,  3)  ; 
WRITE70UTFILE,  '  '); 

WRITE  LSADZERO  (OUTFILE,  T3.KEYC0DE,  2)  ; 
WRITElOUTFILS, '  »  ).* 

WRIT  ELBL  (OUTFILE, T3.KEYCODE)  ; 

END;  (*  WRITELBLS  *) 

(* . . - - - * 


(*  WRITENUMS:  WRITES  OUT  A  LINE  OF  DIGITS  OF 
(*  TI-59  CODE  (KEYCODES  ARE  DIGITS  NOT  LELS) 

Procedure  write  hums  (var  outfile-.text;  t:telpti 

BEGIN 

WRITE  (OUTFI  LE,  '  •  )i 

WRITE  LEADZERO  (OUTFILE,  T3.  ADDRESS,  3)  ; 
KRITElOUTFI  LE,  *  '): 

WRITE  LEADZERO  (OUTFILE, Ta>.KEYCODE, 2)  ; 
WRITElOUTFILE,  *  '): 

WRITE  LEADZERO  (OUTFILE,  T3.  KEYCODE,  2)  ; 
WRITEIN  (OUT  FILE)  ; 

END;  - - * 


(*  WRITENUMS 


Jegin 

IF  STEP  TYPE  IN  (.1,3,4,5,3,12.)  THEN 
WRI TEI3L5 (0 UTFILE, T) 

EL  SE 

WRITEN0MS(O  UTFILE, I)  ; 

T  :  =T  a) .  SEQUENTIAL; 

STEP  T YPE: =STEP  TYPE-1; 

END;  "  (*  PRINT  LINE 

. - — - -  — — - - — - . 

EGIN 

PRINTLN  MSG  (OUT  FILE,  MESS  AGEFILE,  BAXINSTR): 
PRINT  M3GLINE1  (OUTFILE,  MESSAGEFILE,RTNRGTOP)  ; 
WRITEIN  (OUTFILE  .REGCOUNT:  3)  : 

PRINT  MSGLINE1  (OUTFILE,  MESS  AGEFILE,  ST OINRG)  ; 
WRITEIN  (OUTFILE, MANRTNREG:3)  ; 

WRITELN  jCUTFILE): 

PRINT  MS  GLIN  El  ( OUT  FILE,  M  ESS  AGEFILE,  PGM?  ARTI S) 
WRITEIN  (OUTFILE  ,  PARTITION  :4  ;  2)  ; 

WRITELN  (OUTFILE)  ; 

PRINT  MSGLINE1  (OUT  FILE.  ME  S3  AGE  FILE,  PART  NUMIS)  ; 
WRITEIN  (OUTFILE  ,  FARTNUM:  1)  ; 

WRITELN  (OUTFILE)  ;  WRITELN  (OUTFILE)  ; 

P:  =H  EAD  MEMODULE; 

WHILE  PONIL  DO 
BEGIN 

I:«P8.  CODELIST; 

STEP  TYP E;  =  0: 

WRITELN  (OUTFILE)  ;  WRITELN  (OUT  FILE)  ; 

WRITELN  (OUTFILE)  : 

PRINT  MSGLI  NE 1  (OUTFILE,  MESSAGEFILE  ,MODN)  ; 


1ST; 

0: 

FILE);  WRITELN  (OUTFILE)  ; 

FILE)  : 

NE  1  (OUTFILE,  MESS  AGEFILE  ,MODN)  ; 
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END; 

(♦ - 


WP.ITELN  (OUT 
PRINTLN  MSG 
PRINILlTMSG 
WHILE  TONI 
BEGIN 
IF  T  3. A 
BEGIN 
WRI 
PRI 


FILE,  PS.  MEMNUM:  1)  ; 

(OUTFILE, MESSAGEFILE, CARD1)  ; 
jOUTFILE,  MESS AGEFILE , SIDE  1)  ; 

I  DO 

DDRESS=24  0  THEN 

TELN  (OUTFILE)  ;WRITSLN  (OUTFILE)  ; 
NTLN  MSG  (OUTFILE, MESSAGEFILE, 

SIDE2) 


END; 

IF  TS. ADDRESS  =  480  THEN 
BEGIN 
WRI 
PRI 


PRI 


TELN  (OUTFILE)  :  WRITELN  (OUTFILE)  ; 
NTLN  MSG (OUTFILE, MESSAGEFILE  . 

CAR  L2 ) ; 

NTLN  MSG  (OUTFILE, MESSAGEFILE  , 

SIDE  1) 


END; 

SET  STEP  (T, STEP  TYPE), 

E  Rl!TT_L  I  NE  (OUTFILE,  T  ,STEP_TYPE)  ; 
END; 

=  P2  .  NE  XT ; 


(*  OUTPUT_MSGF1 


<* - - - 

(*  OUTPUT  MSGF2;  OUTPUTS  SPECIFIC  PROMPTS  AND 
j*  SPECIAL  PROGRAM  INSTRUCTIONS 


PROCEDURE  OUTPUT  MS GF2 (VAR  OUTFILE , MESS AGEFILE : TEXT 

HEAD  ME  MODULE  tTBLPTR) 
VAR  SBRL,SEP,SM,?,F,SEG:TBLPTR;  “ 

IS  SBRERK:  BOOLEAN; 

BEGIN  “ 

P;  =  H  EAD  MEMOD'JLE; 

PRINTLN”MSG  (OUT  FILE,  MESS  A  GEFILE  ,S  PECI FICS)  ; 
WHILE  PONIL  DO 
BEGIN 

SEG:  =F3.  SEGTBL5: 

F:  =  SEG3.  F  JUMPLIST; 

SBRL :=SEG3. SBRLIST; 

WRITELN  (OUT  FILE)  ; 

PRINT  MSGLINE1  (OUTFILE,  MESSAGEFILE  , 

MODPROMPTS) 

WRI  TELN  (OUT  FILE,  Pa).  MEMNUM:  1)  ; 

PRINTLN  MSG  (OUTFILE,  MESSAGEFILE  ,PFWDJ)  ; 

IF  F=  NIL  THEN 

?RINTLN_M  SG (OUTFIL E, MESSAGEFILE , NONE) 

EL  S  E 
BEGIN 

WHILE  FONIL  DO 
BEGIN 

PRI  NT  MSGLINS 1  (OUTFILE,  MESS  AGEFILE, 
—  ASTER ) * 

WRITE  (OUTFILE. F9.  MEM  ADDR :  1 ,  ' .  •  )  ; 
WRITE  LEAD2ER0  (OUTFirS,  (F3. 

JUM*  ADDRTOl *1 00 
F3 .  JU  MP“  ADD RT02)  ,  3) 
WRITELN  (OUTFILE)  ; 

F: *  F3. NEXT  FJUMP; 

END; 

END: 

PRINTLN  MSG  (OUTFILE, MESSAGEFILE , PSBRINV)  ; 

IF  S  E R L=  NI L  THEN 

PRINTLN  MSG  (OUTFILE  ,  MESS  AGEFILE,  NONE) 
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#  *  #  #  *  # 


BEGIN 

IS  SBRBRK: =FALSE; 

WHILE  SBRLONIL  DO 
BEGIN 

SBR  :=SERLS.  SBR; 

IF  SBP. S. TAG  =  S3RBREA K  THEN 
BEGIN 

SM :=HEAD  MS MODULE ; 

SBR:=SBR3.SERZ ; 

WHILE  SMS  .  SEGTBLS  OSBR  DO 
SK:=SMS. NEXT : 

IS  SBRBRK :=TRUE; 

PRINT  MSGLINE1  (OUTFILE, 

MESSAGEFILE, ASTER)  ; 
WRITELN (OUTFILE, SMS. MEMNUM: 1. 

’.000*); 

END; 

SBR L:  =  SBRLS.  NEXT  SBR; 

END; 

IF  NOT  IS  SBRBRK  THEN 

PRINT  LN“MSG  (OUTFILE,  MES  SAGEFILE  ,  NONE) 

E 

PRINTiN  MSG  (OUTFILE, ME5SAGEFILE ,PMANRTN)  ; 

IF  P2.RETURNC0DE  NEEDED  THEN 

PRINTLN  MSG  (OUTFILE,  MESS  AGEFILE,  YES) 

ELSE 

PRINTLN  MSG  (OUTFILE,  MESSAGEFILE, NONE)  ; 
PRINTLN  MSG  (OUTFILE. MESSAGEFILE, PSEQ)  ; 

IF  S  EGSTTA3 IELIS  T  <>  NIL  THEN 
BEGIN 

PRINT  M  SGLINE1 (OUTFILE , MESS AGEFILE , 

ASTER)  ; 

WRITELN  (OUTFILE, PS. NEXTS. 

MEMNUM:  1  ,  '  .  000*) 

END 
ELS  E 

PRINTLN  MSG  (OUTFILE, MESSAGEFILE, NONE)  ; 

P;  =  PS.NEXT; 

^ND* 

WRITELN  (OUTFILE)  ;  WRITELN  (OUTFILE)  ; 

PRINTLN  MSG(OUTFILE.  SCRATCH.  DATAREAD)  ; 
WRITELN1CUTFILS);  WRITELN  (OUTFILE)  ; 

PRINTLN  MSG  (OUT  FILE,  SCRATCH,  REGM A P)  ; 
WRITELN1CUTFILE)  ;  WRITELN  (OUTFILE)  ; 

ND;  (*  OUTPUT  MSG2  * 


OUTPUT  MSGF1  (OUTFILE, MESSAGEFILE, HEAD  MEMODULE, 

PART  NUM. PARTITION) ; 

OUTPUT  MSGF2  (OUTFILE, MESSAGEFILE, HEAD  ME MODULfe)  ; 
WRIT  EXT?  (OUTFILE): 

PRINTLN  MSG  (CUTFI LE, MESSAGEFILE,  ENDL3L)  ; 

D;  (*  OUTPUT  GOODSEG  * 


*  OUTPUT  EADS  EG:  HANDLES  BAD  SEG  INSTRUCTIONS 


RCCEDUR E  OUTPUT  BADS  EG  (VAR  OUTFILE, MESSAGEFILE, 

“  TEMPFILE.TEXT;  BUILT  CODE :  CCD  EPTR) 

BEGIN 

MRITELN  (OUT FILE)  : WRITELN  (OUTFILE)  : 

PRINTLN  MSG  (OUTFILE,  MESSAGEFILE,  FAILINSTR)  ; 

RESET  (TEMPFILE)  ; 

PRINTLN  MSG  (OUTFI  IE, TEMPFILE , 9) ; 

WRITELNTOUTFILE)  ;  MRITELN  (OUTFILE)  ; 

PRINTLN  MSG(OUTFILE, MESSAGEFILE, UNSEGCCDLBL)  ; 
WRITE  LN70UTFILE):  WRITELN  (OUTFILE)  ; 

PRINT  CODELIST  (OUTFILE, BUILT  CODE); 

WRITETN  (OUT  FILE): 

PRINTLN  MSG  (OUTFILE,  MESSAGEFILE,  ENDL3L)  ; 

END;  “  (*  OUTPUT  BADSEG  * 


IF  NOT  GOOD  SEGMENT  THEN 

OUTPUT  BADS EG (OUT  FILE, MESSAGEFILE, TEMP FILE , 

BUILT  CODE) 

ELSE 

OUTPUT  GOODSEG  (OUTFILE,  MESSAGEFILE,  HEAD  MEMODULZ 

,  PART  NUM, PARTITION) 
ND;  (*“ OUTPUT  INS'IR  * 


ELC  MZMODULENOCES  (SEGTBL,HEAD  MEMODULE)  ; 
BLD“MEMODULSCOCE(BUILT  CODE, HEAD  MEMODULE)  ; 

OUTPUI  INSTR (OUTFILE, MESSAGEFILETTEMPFILE, BUILT  CODE- 

HEAD  MEMODULE, PART  NUM , PARTITION 
GOOD”  SEG  ME  NT)  ; 

D;  “  (*  INSTRUCTIONS  * 


(**  *****4***  ************  ******  ******  *********  **************) 

(*  MAIN  DRIVER  *) 

(******** *****  *  *  **  *********  **********  *****  ***  **************| 


BEGIN 

INIT  SETS  (TEM.PFI  LE.STEP  O.STE?  1 ,  STEP  2, STEP  3, 
GOCD_S£GMENT,MESSAGEFlLE  ,TILi5L,  SBSIUVNEST)  J 

D ET_LIHIT  (  REGCOU NT,LIHI T,NUM3ANKS,  PAR I_NUM,  PARTITION)  ; 

INPUT  (SCRATCH, BUIIT_COD E, BUILT_CO DE_CO UNT) ; 

SETJMFS  (BUILT_COEZ)  ; 

BUILE_SEGT  BL  (BU ILT_CODE , 5EGTBL, LIMIT, BUILT_CODE_COUNT)  ; 

COALESCE  (S  EG  IB L 3  .  TABLED  1ST  ,  LI  MIT  ,  GOOD  SEGMENT 

,  SBRINVMEST)  ; 

WRITELN  (TEMPFILE, '$9 ')  ;  (*  CLOSES  TEMPFILE  DIAG  FILE  *) 

INSTRUCTIONS  (0 UTFILE  , ME  SSAGEFILE  .TEMPFILE  , 

EUILT  C0DE,SSGTBL3.  TABLED  I  ST,  PART  NUM  ,  PARTITION, 
GCOD_ 'SEGMENT)  ; 

REWRITE  (TEMPFILE)  ;  (*  ERASES  TEMPFILE  DIAG  FILE  *) 

END. 


(*************** ************************************** *♦***) 

(*  END  OF  PROGRAM  *) 

|**************************  ******************************** j 


APPENDIX  J 

MESSAGE! ILE  FILE — LINKER  MESSAGES 


EAX59  PROGRAM  INSTRUCTIONS:  VERSION  1.0 


CONGRATULATIONS,  YOU  HA 
INTO  A  TI-59  PROGRAM. 
THAT  YOUR  PROGRAM  IS 
CALCULATOR.  IF  THIS 
BEEN  SEGMENTED  AND  PR 
YOUR  CALCULATOR  PROGR 
MAINDER  OF  THIS  OUTPU 
AND  OTHER  INFORMATION 
EXECUTION. 


VE  JUST  COMPILED  A  BASIC  PROGRAM 
IN  SO  DOING  IT  IS  VERY  POSSIBLE 
LARGER  THAN  THE  MEMORY  OF  THE 
IS  THE  CASE  THEN  THE  PROGRAM  HAS 
CMPTING  CODE  INSERTED  TO  GUIDE 
AM  DURING  ITS  EXECUTION.  THE  RE- 
T  CONSISTS  OF  TI-59  CODE  LISTINGS 
TO  AID  YOU  IN  YOUR  PROGRAM 


THE  F  CL  LOWING  DEFINITIONS  ARE  PROVIDED  AS  AN  AID  TO 
READING  THE  PROGRAM  LISTING  FILE. 

*  DEFINITIONS: 

*  MODULE:  A  MODULE  IS  DEFINED  TO  BE  ALL  THE  MEMORY 
DEDICATEE  TO  PROGRAM  STEPS.  THE  SIZE  IS  VARI¬ 
ABLE  AND  IS  DEPENDENT  ON  THE  REGISTER  REQUIRE¬ 
MENT.  VALUES  RANGE  FROM  0  TO  239,  479  OR  719 
DEPENDING  ON  THE  AMOUNT  OF  REGISTERS  USED  EY 
THE  PROGRAM. 


*  CARD:  A  CARD  IS  DEFINED  TO  BE  ONE  MAGNETIC  CARD. 

A  CARD  HCLDS  4  80  PROGRAM  STEPS.  THESE  STEPS 
iRE  NOT  CONTIGUOUS  BUT  ARE  ARRANGED  ON  THE  TWO 
SIDES  OF  THE  CARD. 

*  SIDE:  A  SICE  IS  ONE  HALF  OF  A  CARD.  IT  CONTAINS 

UP  TO  240  STEPS.  WHEN  ONE  SIDE  OF  A  CARD  IS 
READ  BY  THE  CALCULATOR  240  PROGRAM  STEPS  ARE 
FILLED  IN  MEMORY.  THESE  3 LOCKS  OF  240  STEPS 
ARE  REFERED  TO  AS  "BANK.,"  IN  THE  MANUFACTURER 
LITERATURE.  WHEN  LOADING  A  CARD  YOU  WILL  LOAD 
ONLY  BANK  NUMBER  1  AND/OR  2  FOR  PROGRAM  STEPS. 

*  PARTITION:  THIS  IS  DEFINED  TO  BE  THE  CURRENT 

SETTING  OF  CALCULATOR  MEMORY  AS  APPLIED  TO  THE 
AMOUNT  CF  MEMORY  DEDICATED  TO  STORAGE  REGISTERS 
AND  THE  AMOUNT  DEDICATED  TO  PROGRAM  STEPS. 

WE  WILL  EE  DEALING  WITH  3  PARTITIONS.  THESE 
ARE  : 

3  719.29 

4  479.59 

5  239.69 


FORMAT  : 


YYY.ZZ 


WHERE  X  STANDS  FOR  PARTITION  NUMBER 

YYY  STANDS  FOR  PROGRAM  STEPS  (0-YYY) 
ZZ  STANDS  FOR  REGISTERS  (0-ZZ). 


11-59  PROGRAM  LISTING  BY  MODULE/CARD/SIDE: 


*  THE  FCLLCWING  IS  YCOR  PROGRAM  LISTING.  THE  PROGRAM  IS 

LISTEE  ACCORDING  TO  MODULE  NUMBER  AND  ITS  ASSOCIATED 
CARES  AND  CARD  SIDES. 

*  REFER  TO  THE  TI-59  PROGRAMMER'S  GUIDE  ON  HOW  TO  INPUT  A 

PROGRAM  AND  WRITE  IT  TO  MAGNETIC  CARDS. 

*  CAUTION:  ENSURE  THAT  THE  CORRECT  CALCULATOR  PARTITION 

IS  SET  BEFORE  INPUTTING  A  PROGRAM  AND  WRITING  TO 
MAGNETIC  CARDS. 

*  CAUTION:  ENSURE  THAT  YOU  DO  NOT  CONFUSE  3 ANK  NUMEERS 

WITH  CARD/MODULE  OR  SIDE  NUM3ERS.  THE  NUMBERS  WHICH 
REFER  TO  THE  LISTING  ARE  AKIN  TO  A  VIRTUAL  ADDRESS 
AND  DC  NOT  REPRESENT  THE  ACTUAL  BANK  NUMBER. 

IF  IN  DOUBT,  REMEMBER  TO  USE  THE  TABLE  BELOW  TO 
TRANSLATE  VIRTUAL  TO  ACTUAL  3ANK  NUMBERS. 

VIRTUAL  BANK  ACTUAL  BANK 

KCDULE  # 

CARD1 

SIDE  1 -  BANK1 

MODULE  # 

CARE  1 

SIDE2 -  BANK2 

MODULE  # 

CARE2 

SIDE1 -  BANK3 


TI-59  LISTING 


$81 


2U3 


$82 


TI-59  PROGRAM  SPECIFIC  INSTRUCTIONS: 


*  THE  FOLLOW ING  INFORMATION  WILL  TELL  YOU  HOW  TO  RUN 

YCUP  EROGRAM. 

*  YOU  MUST  ENTER  YOUR  PROGRAM  MANUALLY  INTO  THE  CALCULATOR 

AND  WRITS  THE  EROGRAM  TO  MAGNETIC  CARDS.  THIS  STEP 
CNLY  NEEDS  TO  EF  ACCOMPLISHED  ONCE.  AFTER  THAT,  THE 
PROGRAM  IS  ENTERED  USING  THE  MAGNETIC  CARD  FACILITY 
OF  THE  CALCULATOR.  SEE  THE  MANUFACTURER'S  LITERATURE 
ON  ENTERING  A  EROGRAM  AND  WRIITING  IT  TO  MAGNETIC 
CARES.  YOU  WILL  NEED  TO  PARTITION  MEMORY. 

*  HOW  TO  EARTITION  THE  MEMORY 

*  KEY  SEQUENCE: 

X 

2ND 

OP 

17 

*  X  IS  THE  PARTITION  NUMBER  GIVEN  IN  THE  LISTING  OF 

YOUR  PROGRAM. 

*  WHEN  TO  EARTITION  THE  MEMORY 

*  ONCE  BEFORE  READING  IN  CARDS. 

*  ONCE  BEFORE  MANUALLY  ENTERING  PROGRAM  IN  ORDER  TO 

WRITS  TO  CARDS. 

*  HCW  TO  START  AND  RUN  YOUR  PROGRAM 

*  TURN  ON  CALCULATOR 

*  EARTITION  CALCULATOR 

*  LCAE  ALL  MODULE  1  CARDS 

*  CETIONAL  STEP:  IF  YOU  SELECTED  THE  MANUAL  DATA  INPUT 

DENOTED  IN  YOUR  BASIC  PROGRAM  BY  USING  THE  "DATA" 
AND  "READ"  STATEMENTS  THEN  YOU  MUST  MANUALLY  ENTER 
YCUR  DATA  INTO  THE  CALCULATOR  MEMORY.  THIS  IS 
DONE  BY  REFERRING  TO  "INPUT  DATA  TO  READ"  TAELE 
EROVIDED  AT  THE  END  OF  THIS  LISTING.  MANUALLY 
ENTER  THE  GIVEN  DATA  INTO  THE  REGISTERS  USING  THE 
FOLLOWING  KEYSTROKES: 

DATA 

STO 

XX 

WHERE  XX  IS  THE  DESIRED  REGISTER  NUMBER. 

*  INITIALIZE  THE  MANUAL  SBR  RETURN  CONTROL  STACK  WITH 

THE  FOLLOWING  KEYSTROKES: 


WHERE  XX  IS  THE  MANUAL  RETURN  REGISTER  STACK  TOP. 
(THIS  IS  GIVEN  WIIH  THE  PROGRAM  LISTING  NEAR  THE 
PARTITION  INFORMATION.) 

*  PRESS  "A"  TO  START. 

*  FCLLCW  DISPLAY  PROMPTS. 

*  DEFINITIONS: 

*  RUN-TIME  PROMPTS:  ARE  DEFINED  'TO  BE  CALCULATOR 
PROMPTS  DISPLAYED  IN  THE  CALCULATOR  WINDOW 
IN  THE  FCRM  OF  A  4  DIGIT  DECIMAL,  2  DIGIT 
INTEGER  OR  A  1  DIGIT  INTEGER.  EACH  PROMPT 
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IS  OUTLINED  BELOW: 

*  4  DIGIT  DECIMAL 

*  FORMAT:  X.YYY 

*  X  STANDS  FOR  MODULE  NUMBER  (1-9) 

*  YYY  STANDS  FOR  STARTING  ADDRESS 

*  ACTIONS: 

*  LOAD  ALL  MODULE  X  CARDS. 

*  PRESS  FOLLOWING  KEY  SEQUENCE  TO 
INTIALIZE: 

RCL 

00 

GTO 

Y 

Y 

Y 

*  ERESS  R/S  TO  CONTINUE  IN  NEW  MOD. 

*  2  DIGIT  INTEGER 

*  FORMAT:  XX  WHERE  XX  STANDS  FOR  A 

REGISTER  NUMBER. 

*  ACTIONS: 

*  LOOK  UP  IN  REGISTER  MAP  PROVIDED 

THE  BASIC  NAME  THAT  CORRESPONDS 
TO  THE  XX  NUMBER. 

*  ENTER  THE  BASIC  VARIABLE  VALUE. 

*  PRESS  R/S  TO  CONTINUE  WITH  THE 

ENTERED  VALUE. 

*  1  DIGIT  INTEGER 

*  FORMAT:  X  WHERE  IS  A  MODULE  NUMEER. 

*  ACTIONS: 

*  LOAD  ALL  MODULE  X  CARDS. 

*  PRESS  FOLLOWING  SEQUENCE  TO 

INITIALIZE: 

RCL 

00 

INV 

SBR 

*  PRESS  R/S  TO  CONTINUE  IN  NEW  MOD. 

*  PAUSE  IN  DISPLAY 

*  AN  UNFORMATTED  DIGIT  FLASHES  IN  THE 

DISPLAY  BEFORE  BEING  DISPLAYED. 

THIS  IS  AN  ANSWER  THAT  CORRESPONDS 
TO  A  REQUESTED  ANSWER  IN  THE  BASIC 
PROGRAM  USING  THE  BASIC  PRINT 
STATEMENT.  THESE  ANSWERS  OCCUR  IN 
THE  SAME  ORDER  AS  THEY  WERE 
REQUESTED  IN  THE  BASIC  PROGRAM. 

*  ACTIONS:  NOTE  ANSWER  AND  PRESS  R/S. 

*  888  IN  DISFLAY 

*  SPECIFIC  PROMPT  THAT  INDICATES  THAT 

THE  PROGRAM  HAS  STOPPED  EXECUTION. 

*  ACTIONS:  IF  DESIRED  FIND  ANSWERS  IN 

THE  CALCULATOR  MEMORY  USING  THE 
" T 1-59  REGISTER  TO  NAME  MAPPING" 

AT  THE  END  OF  THE  INSTRUCT  IONS . 


*  EXPECTED  CCNTROL  FLOW  PROMPTS  BY  MODULE  FOLLOW: 

$82 

$83 

END~£AX5  9~isG?liNTATIO  N/InItRUCTIO  n7~  vjj  SION~TrO~ 

$83~ 

$84 

~BAX5  9~?IoGRAM  INS  T RUCTIONS  7_viRSION_1  To  ~ 

****  SEGMENTER  FAILURE  ************  PROGRAM  FAILURE**** 
_ 3AX59  DIAGNOSTICS  FOLLOW: _ 

*~sIg MZNTcI  FAILUREi  : 
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*  THE  SEGMENTOE  COULE  NOT  SEGMENT  THE  COMPILED  PROGRAM  IN 

A  SATISFACTORY  MANNER.  POSSIBLE  REASONS  FOR  THE 
FAILURE  ARE  GIVEN  BELCH. 

*  THEBE  ABE  TWC  TYPES  OF  SEGMENT  3 R SAKS: 

*  A  JUMP  BREAK  OCCURS  THROUGH  AN  ABSOLUTE  JUMF  TO  SOME 

PORTION  OF  CODE  IN  ANOTHER  MODULE. 

*  A  SER  BREAK  OCCURS  THROUGH  A  SBR  INVOKE  TO  A  SBR 

WHOSE  DEFINITION  RESIDES  IN  ANOTHER  MODULE. 

*  SEGMENT  FAILURE  OCCURS  WHEN  ONE  OF  THE  A30VE  BREAKS 

OCCURS  INSIDE  A  BACKWARD  JUMPING  LOOP  I HAT  COVERS 
MORE  PROGRAM  STEPS  THAN  IS  AVAILABLE  IN  THE  CALCULATOR 
MEMORY.  SEGMENTATION  IS  NOT  ALLOWED  IN  A  LOOP  AS  IT 
IS  IMPRACTICAL  TO  KEEP  READING  IN  CARDS  EVERY  TIME  THE 
THE  PROGRAM  LOOPS  3AC  K  OVER  A  BREAK  (IMAGINE  A  1  TO 
1000  LCOP  OVER  SUCH  A  BREAK).  TO  AVOID  SUCH  A  PROBLEM 
YOU  MUST  STRUCTURE  YOUR  BASIC  PROGRAM  TO  AVOID  LARGE 
BACKWARD-JUMPING  LOOPS. 

*  PROGRAM  FAILURES:  POSSIBLE  PROGRAM  FAILURE  OCCURS  WHEN 

SUEECUTINE  CALLS  ARE  NESTED  GREATER  THAN  SIX  DEEP. 

THE  CALCULATOR  ONLY  HAS  SIX  SUBROUTINE  RETURN  REGISTERS. 

*  BEICW  ARE  DIAGNOSTICS  INDICATING  THE  SIZES  OF  THE  LOOPS 

IN  11-59  PROGRAM  STEPS  AND  THE  TYPES  OF  BREAKS  OCCURRING 
WITHIN  THESE  LOOPS.  DI AGNOSTICS  ARE  GIVEN  IN  ABSOLUTE 
CCDS.  SER  NESTING  LEVEL  DIAGNOSTICS  ARE  GIVEN  FOR 
INVOKED  ROUTINE  DEFINITION. 


EAX59  VERSION  1.0 

UNSEGMENTED  ABSOLUTE  COMPILED  TI59  CODE  FOLLOWS 


$5 

$6 

*  SEQUENTIAL  CONTINUATION:  4  DIGIT  REAL  CODE. 


*  MANUAL  RETURN  FROM  A  SUBROUTINE:  1  DIGIT  CODE. 
$7 

$8 

*  FORWARD  JUMP  CONTINUATION:  4  DIGIT  REAL  CODE. 

$8 

$9 

*  SUBROUTINE  INVOKE:  4  DIGIT  REAL  CODE. 

$9 


0 

1 

2 

7 

4 

5 

6 

7 

8 

9 

2ND  S' 

A 

p 

C 

D 

E 

2ND 

A  • 

2ND  3  * 

2ND  C' 

2ND 

D' 

2ND 

CIR 

INV 

LNX 

CE 

CLR 

2ND  INV 

2ND  LOG 

2ND 

CP 

2ND 

TAN 

X  <=>T 

X**2 

SORT  (X) 

1/X 

2ND  PGM 

2ND  ?  =  >  R 

2ND 

SIN 

2ND 

CCS 

2ND  INC 

STO 

RCL 

SUM 

Y  **X 

2ND  CMS 

2ND 

EXC 

2ND 

PRD 

1  X| 

EE 

{ 

) 

/ 

2ND  ENG 

2ND 

FIX 

2ND 

INT 

2ND  DEG 

GTO 

2ND 

PGM  2ND  IND 

2ND 

EXC  2ND 

IN D 2ND  PRC  2ND 

INDX 

2ND 

PAUSE 

2ND 

X=T 

2ND  NCP 

2ND  OP 

2ND 

RAD 

SBR 

STO  2NC  IND 

RCL  2ND  IND 

SUM 

2ND  IND 

— 

2ND  LEL 

2ND  X>  =  T 

2ND 

SUMMATION 

X-BAR 

2ND  GRAD 

RST 

GTO 

2ND  IND 

2ND 

OP  2ND 

IND  ♦ 

2ND  STFLG 

2ND 

IFFLG 

2ND 

D.  MS 

2ND  PI 

2ND  LIST 

R/S 

INV 

SER 

• 

v- 

= 

2ND 

WRITE 

2ND  DSZ 

2ND  ADV 

2ND 

PET 
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*  EXPECTED  PROMPTS  FOR  MODULE  #  $ 

00 

01 


01 

02 


02 


03 


03 


*  NONE 

*  $ 

*  YES 


*  MANUAL  RETURN  REGISTER  TOP  IS  S 
04 

05 

STORE  IN  REGISTER:  S 
05 
06 

*  PROGRAM  PARTITION  IS  $ 

06 

07 

*  PARTITION  NUMBER  IS  $ 

07 

08 

♦MODULE  #  $ 

08 

09 

CARE  #1 
09 
10 

CARD  #2 

10 
1  1 

SIDE  #1 


1  1 
12 


SIDE  #2 


APPENDIX  K 

ARTILLERY  TEST  PROGRAM  SOURCE  CODE 


rr^ 


00005 
00010 
0001  1 
00012 
00014 
00015 
00016 
00017 
00018 
0001  9 
00020 
00022 
00023 
00024 
00025 
00026 
00027 
00050 
00055 
00100 
001  20 
0013  0 
00140 
00150 
00160 
00 170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
004  10 
00420 
00430 
004  4  0 
00450 
00460 
00470 
004  7  1 
00472 
004  7  3 


OPTION  0  5 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

DATA 

DATA 

DATA 

REM 

DATA 

DATA 

DATA 

REM 

DATA 

DATA 

DATA 

REM 

DATA 

DATA 

DATA 

REM 

REM 

DATA 

REM 

REM 

DATA 

REM 

REM 

DATA 

REM 

REM 

DATA 

REM 

REM 

DATA 

REM 

REM 

DATA 

REM 

REM 

DATA 

REM 

REM 


*****  ************  ******************  *********  ****** 

BAX59  TEST  EROGRAM  NUMBER1 

♦THIS  TEST  PROGRAM  IS  AN  ADAPTATION  OF  THE  PROGRAM 
USED  BY  THE  FIELD  ARTILLERY  IN  THE  COMPUTATION 
OF  FIRING  DATA  FOR  THEIR  GUNS.  THE  ORIGINAL 
PROGRAM  HAS  WRITTEN  FOR  THE  TI-59  CALCULATOR. 
THIS  TEST  HAS  CHOSEN  NOT  ONLY  TO  EVALUATE  THE 
THE  COMPILER  AND  SEGMENTOR  BUT  TO  COMPARE  THE 
THE  RELATIVE  EFFICIENCY  OF  THE  TRANSLATEE  WEASIC 
PROGRAM  WITH  THAT  OF  A  HUMAN  CODED  PROGRAM.  BOTH 
PROGRAMS  ACCOMPLISH  THE  SAME  TASK. 

**********  *******  ******  ****  *********************** 
**************  DATA  SECTION  M1Q9  ***************** 

♦CHARGE  CONSTANTS  M109A1  SELF  PROPELLED 
♦CHARGE  4 

-.0  1336  70.  21. 269  1,-105.7 
-.00001  499,.  06630,-.  41 
. 77 ,.01314 ,.00001720 
♦CHARGE  5 

-.0  149331. 24.3439,64.7 
-.00001420,. 07069. .06 
1 .26, .01508, .00001678 
*C HARGE  7 

-.  0  1738  35,29.  874  1,2255.2 
-.  0 CO0 166 8,. 0  84  87. 3. 29 
1 . 3  ,.02713  ,  .00C0  lS06 
♦CHARGE  8 

-.  0  182137. 32.  3731,4107.4 
-.  00001668,. 09272. 5. 74 
1  .  36, .0289  1,-000014  10 


*M 109  MAX  RANGE  OF  CURVE 
5700,7000,  1  0800,  17600 


FIT  BY  CHARGE 


*M  109 
715 


HIGH  ANGLE  CROSS  OVER  POINT  MILS 


♦BATTERY  DATA/ 
0,  0, 0,800 

♦REGISTRATION 

1.0 ,0 


BTRYE, BT RYN, BTRY A, BTRYL 


DATA/RNGK , DFCOR 


♦  TARGET  DA  TA/CBS  EF.VOR 

4000,4000,  1  0 

*0  ES  ER  VCR  DATA 
4000,-400,1  0 

♦  SPECIFIC  CORRECTION 
1018.  5924,  16  CO,  3200 


LOC ATION ( DU AL  MEANING) 


FACTORS  DATA 
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00480 
00490 
00495 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
0057  C 
00580 
00590 
00600 
0061  0 
006  2  0 
00630 
006  4  0 
006  5  0 
00660 
006  7  0 
006  8  0 
006  9  0 
007  00 
0071  0 
007  20 
C0730 
00740 
00750 
007  6  0 
00770 
00780 
00790 
00800 
C0810 
C0820 
00830 
00840 
00845 
00860 
00870 
00875 
00880 
009  00 
00910 
C09  2  0 
00940 
00950 
00970 
00980 
C0990 
01000 
01010 
01020 
C1022 
01030 
01035 
01040 
01050 
01051 
01055 
01060 
01070 
01080 
01090 
01100 
011 10 
01115 
01120 


REM 

REM 

REM 

REM 

READ 

READ 

REAE 

REM 

READ 

REAE 

REAE 

REM 

READ 

REAE 

READ 

REM 

READ 

REAE 

READ 

REM 

REM 

REAE 

REM 

REM 

READ 

REM 

REM 

REAE 

REM 

REM 

REAE 

REM 

REM 

REAE 

REM 

REM 

READ 

REM 

REM 

REAE 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


***************  VARIABLE  read  initialization  ***** 

♦  M 10  9  EALLISTIC  CONSTANTS  BY  CHARGE 

♦CHARGE  4 
A24,A14,A04 
C2  4, Cl  4,  C  04 
304.E14,324 

♦CHARGE  5 
A25,A15,A05 
C2  5 ,C1 5,C 05 
B05,E15,B25 

♦CHARGE  7 
A27,A17,A07 
C27,C17,C07 
B07tE17,B27 

♦CHARGE  3 
A28,A1  8, A  08 
C2£,C1  8rC  C8 
B0£,E18,B28 

*M 109  MAX  RANGE  OF  CURVE  FIT  VARIABLES 

CHG4MAX, CHG 5MA X, CHG7 M AX , CHG8M AX 

♦  M  109  HIGH  ANGLE  CROSS  OVER  VARIABLE 

HACRCSS 

♦  BATTERY  VARIABLES 

ETRYE,ETRYN  ,ETRYA,3TS YL 

♦REGISTRATION  VARIABLES 

RG  K  ,  DFCOR 

♦  TARGET  VARIABLES  OR  OBSERVOR  I  NIT  LOCATION 

GRIDE, GRIDN ,GRIDA 

♦  OBSERVOR  VARIABLES 

OT  ,  L  AIDE  V,  RGDEV 

♦  SPECIFIC  CORRECTION  FACTORS  VARIABLES 

KILRAE,ROTCOR,  REFDEF 

****************  ********************************* 
*************  sjain  PROGRAM  3EGINS  *************** 
STA  RT 

♦COMPOTE  TARGET  GRID 
GOSOE  1050 

♦COMPUTE  GUN  RANGE, AZI MOTH 
GOSUE  1130 

♦  COMPUTE  FIRING  DATA 

GOSUE  1240 

STOP 

*************  MAIN  STOP  ************************ 
*************  SUBROUTINES  ********************** 


REM 

REM 

REM 


******************************************** 

♦♦*  COMPOTE  NEW  TARGET  GRID  FROM  SHIFTS  **** 
******************************************** 

START 

GRIDN  =  GR  IDN  +  (  RGDEV*  SIN  (  (ROTCOR-OT)  / 
MILRAD) -LATDEV*COS ((ROTCOR-OT)  /MIL 
GRIDE  =  GRIDE+ (RGDEV*CCS  (  (ROTCOR-OT)/ 
MILRAD)  +L ATDEV*  SIN ( (ROTCOR-OT) /MIL 

RETURN 

********************************************* 


**  ** 
**  ** 
**  ** 

& 

RAD)  j. 
RAD)  ) 


***** 

************************************************** 
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01130 
01131 
01135 
011  40 
01145 
Cl  1  50 
01 160 
01170 
01180 
01190 
01200 
01210 
01220 
01223 
01230 
01240 
01245 
01250 
01260 
01270 
01275 
01280 
01290 
01295 
01300 
01310 
013  15 
01320 
01330 
01335 
01340 
01350 
01360 
01370 
01380 
01390 
01395 
01400 
01405 
01410 
01420 
01430 
01435 
01440 
01450 
01460 
01470 
01480 
0148  1 
01490 
01500 
01510 
01515 
01516 
01518 


****  COMPOTE  GUM  RANG2,  AZIMUTH  ****************** 
************************************************** 
START 

TGTRG  =  SQ  R  (  (GRIDE-  BTRY  E)  **2+  8 

(GRIDN-BTRYN)  **2) 

TGTAZ  =  AS  IN  (  (GRID  N  -  BTRYN)  /TGTRG)  *  MIL  RAD 
I?  GRIDE  >=  3TRYE 

TGTAZ  =  ROTCOR  -  TGTAZ 
ELSE 

TGTAZ  =  3*R  GTCOR  ♦  TGTAZ 
END  IF 
RETURN 

*********  ******** *** ******  ************************ 

************************************************** 

****  PISING  DATA  COMPUTATION  ROUTINE  ************* 
************************************************** 

S  TA  R  T 

IF  TGTRG  <=  CHG4MAX 

I N  VCKE=  FN  FD(A24,A14,A04,C24,C14,C04,  S 

B24,E14,B04) 

ELSEIF  TGTRG  <=  CHG5MAX 

IN VCKE=  FN  FD(A25r A  1 5 , AO  5 , C25 , C 1 5 , C05 ,  S 

325, El  5, BOS) 

ELSEIF  TGTRG  <=  CHG7MAX 

I N WCKE=  FN  FD (A27, A  1 7 , A07 , C27 , C 1 7 , C07 ,  S 

B27,E17,B07) 

ELSEIF  TGTRG  <=  CHG8  MAX 

IN  VOKE=  FN  FD(A28,A18,A08,C28,C18,C08,  5 

B28,E18,BC8) 

ELSE 

PRINT  TGTRG 
ENDIF 
RETURN 

********  *********  ******************  ************  *** 

*****************  ********************************* 

***  FIRING  DATA  COMPUTATION  FUNCTION  ************* 
*****************  ********************************* 
START 

DEF  FN  FD(A2,A1,AQ,C2,C1,C0,B2,B1,B0) 

EL  =  (-A  1+SQR  (A1**2- (4*A2*  (A0-TGT3G  +  RGK)  S 

)  )  )/(2*A2) 

IF  EL  >  HACROSS 

PRINT  TGTAZ, TGTRG 
ELSE 

PRINT  CO+C  1*EL«-C2*EL**2 

PRINT  R  EFDEF+DFCOR+ (BTRYL-TGTAZ)  ♦  S 

(B0  +  31*EL«-B2*EL**2) 
PRINT  EL+  (  (GRID  A- BTRYA+20)  /TGTRG*1  0  00) 
ENDIF 
FNENE 

************************************************** 

END  EAX59  TEST  PROGRAM  NUMBER  ONE 

***** **** ********  4***************** **** ****** ** *** 


APPENDIX  l 

TEST  PROGRAM  LISTING  FILE  (LISTF) 


NBA  SIC  PROGRAM  LISTING 


00005 

OPTION  0  5 

000  10 

REM 

****** 

0001  1 

REM 

00012 

REM 

00014 

REM 

00015 

REM  : 

♦THIS 

00016 

REM 

USED 

000  17 

REM 

OF  F 

00018 

REM 

EROG 

00019 

REM 

THIS 

00020 

REM 

THE 

00022 

REM 

THE 

00023 

REM 

PROG 

00024 

REM 

EROG 

00025 

REM 

00026 

REM 

****  ** 

00027 

REM 

00050 

REM  : 

****** 

00055 

REM 

00100 

REM 

♦  C 

00120 

REM 

00130 

DATA 

0014  0 

DA  I A 

00150 

DATA 

001  60 

SEM 

00170 

DATA 

00180 

DATA 

00190 

DATA 

00200 

REM 

00210 

DAIA 

C0220 

DATA 

00230 

DATA 

00240 

REM 

00250 

DATA 

G0260 

DATA 

00270 

DATA 

00280 

REM 

00290 

REM 

♦M 

00300 

DATA 

00310 

REM 

00320 

REM 

♦  M 

00330 

DATA 

00340 

REM 

00350 

REM 

♦B 

00360 

DATA 

C0370 

REM 

00380 

REM 

♦R 

00390 

DATA 

00400 

REM 

004  10 

REM 

♦T 

00420 

DATA 

00430 

REM 

00440 

REM 

♦  0 

00450 

DATA 

00460 

REM 

*****************  ********************************* 

BAX59  TEST  PROGRAM  NUMBER1 

TEST  PROGRAM  IS  AN  ADAPTATION  OF  THE  PROGRAM 
BY  THE  FIELD  ARTILLERY  IN  THE  COMPUTATION 
IHING  DATA  FOR  THEIR  GUNS.  THE  ORIGINAL 
RAM  WAS  WRITTEN  FOR  THE  TI-59  CALCULATOR. 
TEST  WAS  CHOSEN  TO  NOT  ONLY  EVALUATE  THE 
COMPILER  AND  SEGMENTOR  BUT  TO  COMPARE  THE 
RELATIVE  EFFICIENCY  OF  THE  TRANSLATED  WEASIC 
RAM  WITH  THAT  OF  A  HUMAN  CODED  PROGRAM.  BOTH 
RAMS  ACCOMPLISH  THE  SAME  TASK. 

****  *************  ********************************* 

********  D4TA  SECTION  M109  ***************** 

HARGE  CONSTANTS  M109A1  SELF  PROPELLED 
♦CHARGE  4 

-.  31336  70.  21.2691,-105.7 
-.00001499 ,. 06630,-. 41 
.77, .01314, .00001720 
♦CHANGE  5 

-.  0  149331.  24.3439,64.7 
-.00C01420,. 07069. .06 

1. 26. . 0  1509,. 00001678 
♦CHARGE  7 

-.  0  1738  35.  29.  8741,22  55.  2 
-.00001668 ,.08487,3. 29 

1.3..  02713. .00C01306 
♦CHARGE  8 

-.  0  182137, 32. 3731, 4107.  4 
-.00001663, .09272. 5. 74 
1  .  36,. 0289  1,.  0000141  0 


109  MAX  RANGE  OF  CURVE 
5700 ,7000,1  0800,  17600 


FIT  BY  CHARGE 


715 


HIGH  ANGLE  CROSS  OVER  POINT  MILS 


ATTERY  DATA/ 
0,  0, 0,800 


BTRYE, BTRYN,BTRYA, BTRYL 


1.0,0 


DATA/RNGK,DFCOR 


ARGET  DATA/CBSERVOR 
4000,4000,  1  0 

ESERVOR  DATA 
4000  ,-400,  1  0 


LOCATION  (DUAL  MEANING) 


25  1 


tv 


C0470  REM  ♦SPECIFIC  CORRECTION  FACTORS  DATA 

00471  DATA  1018.  5924,16  00,3200 

00472  REM 
00473  REM 

00480  REM  ***************  VARIABLE  READ  INITIALIZATION  ***** 
00490  REM 

00495  REM  *M109  EALLISTIC  CONSTANTS  31  CHARGE 

00500  REM  *CHARGE  4 

00510  READ  A24,A14,A04 

00520  READ  C24,C14,C04 

00530  READ  B04,E14,B24 

00540  REM  *CH ARGE  5 

C0550  READ  A25,A15,A05 

00560  READ  C25,C15,CC5 

00570  READ  B05,B15,B25 

00580  REM  *CH ARGE  7 

00590  READ  A27,A17,A07 

00600  READ  C27,C17,CG7 

0061  0  READ  B07,E17,B27 

00620  REM  *C HARGE  8 

0063C  READ  A28,A18,-A08 

00640  READ  C2fi,C18,CC8 

00650  READ  806,818,828 

00660  REM 

00670  REM  * M 109  MAX  RANGE  OF  CURVE  FIT  VARIABLES 

00680  READ  CHG4 M AX, CHG 5MA X, CHG7 M AX, CHG8M AX 

00690  REM 

00700  REM  * M 109  HIGH  ANGLE  CROSS  OVER  VARIABLE 

00710  READ  HACRCSS 

00720  REM 

00730  REM  *BATTERS  VARIABLES 

00740  READ  ETS Y  E ,  ETRYN  ,  BTRYA  ,  3TS  YL 

00750  REM 

00760  REM  *RSGISTRATION  VARIABLES 

00770  READ  RGK  ,  DFCOR 

00780  REM 

00790  REM  *T ARGET  VARIABLES  OR  OBSSRVOR  INIT  LOCATION 

00800  READ  GRIDE, GRIDN ,GRIDA 

00810  REM 

00820  REM  *OESERVOR  VARIABLES 

00830  READ  OT , L ATDE V, R GDE V 

00840  REM 

00845  REM  *SPECIFIC  CORRECTION  FACTORS  VARIABLES 

00860  READ  MILRAD,ROTCOR,  REFDEF 

00870  REM 

00675  REM  ************************************************* 
00880  REM  *************  MAIN  PROGRAM  3EGINS  *************** 
00900  REM  START 

00910  REM  *COMP  UIE  TARGET  GRID 

00920  GOSUE  1050 

00940  REM  *C OMP UTE  GUN  R ANG E , AZI MUT H 

C09  50  GOSUE  1  130 

CO 97 0  REM  *COMPUTE  FIRING  DATA 

00980  GOSUE  1240 

C0990  REM 

0100  0  STOP 

01010  REM  *************  MAIN  STOP  ************************ 
01020  REM 
01022  REM 

01030  REM  *************  SUBROUTINES  ********************** 
01035  REM 

01040  REM  ************************************************ 
01050  REM  ***  COMPUTE  NEW  TARGET  GRID  FROM  SHIFTS  ******** 
01051  REM  ************************************************ 
01055  REM  START 


01060  GRIDN  =  GRIDN+(RGDEV*SIN  {  (ROTCOR-OT)  /  & 

01070  S  MILRAD) -LATDEV*COS  (  (ROTCOR-OT) /MILRAD)  ) 

01080  GRIDE  =  GRIDE+ (RGDEV*COS  (  (ROTCOR-OT)  /  & 

01090  S  MILRAD)  *LATDEV*SIN  (  (ROTCOR-OT)  /MILRAD)  ) 
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01100 
011  1  0 
01115 
01120 
01130 
01131 
01135 
01140 
01145 
01  150 
01160 
01170 
01180 
01190 
01200 
0121  0 
01220 
01223 
01230 
01240 
01245 
01250 
01260 
01270 
01275 
01230 
01290 
01295 
01300 
01310 
01315 
01320 
01330 
01335 
01340 
01350 
01360 
01370 
01380 
01390 
01395 
Cl  4  0  0 
01405 
01410 
01420 
01430 
01435 
01440 
01450 
01460 
G1470 
01480 
01481 
01490 
01500 
015  10 
01515 
01516 
01518 


RETURN 

**************  ************************************ 

************************************************** 

****  COMPUTE  GUN  RANGE.  AZIMUTH  ****************** 
*****************  ********************************* 

START 

TGTRG  =  SQ  R  {  (GRIDE-  B  TRY  E)  **  2+  & 


(GRIDN-BTRYN)  **2) 
TGTAZ  =  AS  IN  (  (GRIDS -3TRYN)  /TGTRG)  *  MIL  RAD 
IF  GRIDE  >=  BTRYE 

TGTAZ  =  ROTCOR  -  TGTAZ 
ELSE 

TGTAZ  =  3*ROTCOR  ♦  TGTAZ 
EN  DIF 
RETURN 

************************************************** 

************************************************** 

****  FIRING  DATA  COMPUTATION  ROUTINE  ************* 
*****************  ********************************* 

START 

IF  TGTRG  <=  CHG4MAX 

I  N  VCKS=  FN  FD(A24,  A  14  ,  A04  ,  C24  ,  C 1  4 , 004  ,  S 

324, El  4rB04) 

ELSSIF  TGTRG  <=  CHG5HAX 

I N VCKE=  FN  FD(A25, A  15 , A05 ,C25 ,C 1 5 ,C05  ,  & 

-  B25,£15,3  05) 
EL SEIF  TGTRG  <=  CHG7MAX 

INVOKE3  FN  FD(A27, A  1 7 , A07 ,C27, C 1 7 , C07 ,  S 

-  B27;El7lB07) 
ELSEIF  TGTRG  <=  CHG8MAX 

INVOKE3  FN  FD(A28, A18, A08,C28,C1 8,C08,  6 

B28  ,  E 1  8  ,B  08) 

ELSE 

PRINT  TGTRG 
END  I F 
RETURN 

************************************************** 

*****************  **********************  *********** 

***  FIRING  DATA  COMPUTATION  FUNCTION  ************* 
***************************************  **********  * 
START 

DEF  FN  FD(A2,A1,A0,C2,C1,C0,B2,31,B0) 

SI  3  (-A  1  +  SQR  (Al  **2- (4*A2*  (A0-TGTRG*RGK)  & 

)  )  )/(2*A2) 

IE  EL  >  H  AC  ROSS 
PRINT  TGTAZ, TGTRG 
ELSE 

"FEINT  CO+C  1*EL+C2*EL**2 
PRINT  R  EFDEF  +  DFCOR+  (3TRYL-TGT AZ)  ♦  6 

jBO+BI *EL+B2*EL**2) ) 
PRINT  E  L+  (  (GRIDA-3THYA+20)  /T  GTRG*  10  00) 
ENEIF 
ENENE 

************************************************** 

END  EAX59  TEST  PROGRAM  NUMBER  ONE 

************************************************** 


COMPILATION  SUMMARY 


0  FATAL  ERRORS. 

0  WARNING  MSGS. 

81  IS  NEXT  AVAILABLE  REGISTER 
TOTAL  REGISTERS  RESERVED  3  11 


253 


b 


I  »• 


i 


C5o 

54 

) 

057 

54 

C58 

42 

STO 

059 

59 

59 

C60 

£3 

( 

06  1 

43 

RCL 

06  2 

58 

58 

06  3 

85 

♦ 

C6  4 

53 

( 

065 

43 

RCL 

066 

63 

63 

067 

65 

* 

068 

53 

( 

{ 

06  9 

53 

C70 

43 

RCL 

m 

d 

43 

65 

RCL 

C7a 

61 

61 

07  5 

54 

) 

/ 

C76 

55 

07  7 

43 

RCL 

C78 

64 

64 

079 

54 

) 

C80 

39 

2ND  CCS 

08  1 

85 

+ 

C82 

43 

RCL 

083 

62 

62 

caa 

65 

* 

085 

53 

( 

C86 

53 

( 

087 

43 

RCL 

C88 

65 

65 

C89 

75 

— 

090 

43 

RCL 

09  1 

61 

61 

09  2 

54 

) 

09  3 

55 

/ 

094 

43 

RCL 

09  5 

64 

64 

096 

54 

) 

C97 

38 

2ND  SIN 

C98 

54 

} 

C99 

54 

) 

100 

42 

STO 

101 

58 

58 

102 

92 

INV  SER 

103 

76 

2ND  LEL 

104 

13 

C 

105 

53 

( 

106 

53 

107 

53 

( 

108 

43 

RCL 

109 

58 

58 

110 

75 

- 

11  1 

43 

RCL 

112 

52 

52 

113 

54 

) 

114 

45 

Y**X 

115 

02 

2 

116 

85 

♦ 

117 

53 

( 

118 

43 

RCL 

119 

59 

59 

120 

75 

- 

121 

43 

RCL 

122 

53 

53 

123 

54 

124 

45 

Y**X 

255 


401 

79 

79 

402 

53 

( 

403 

71 

dBR 

404 

15 

17 

40  5 

54 

f 

406 

54 

) 

407 

42 

STO 

4C8 

69 

69 

409 

61 

GTO 

410 

04 

04 

411 

16 

16 

412 

43 

RCL 

413 

67 

67 

414 

99 

2ND  FRT 

415 

98 

2ND  AEV 

416 

92 

INV  S2R 

417 

76 

2ND  LEL 

418 

15 

E 

419 

00 

0 

420 

42 

STO 

42  1 

70 

70 

422 

53 

( 

423 

53 

( 

424 

43 

RCL 

425 

72 

72 

426 

94 

+/- 

427 

85 

♦ 

428 

53 

( 

429 

43 

RCL 

430 

72 

72 

431 

45 

Y**X 

432 

C2 

2 

433 

75 

— 

434 

53 

( 

435 

C4 

4 

436 

65 

* 

437 

43 

RCL 

438 

71 

71 

439 

65 

* 

440 

53 

( 

44  1 

43 

RCL 

44  2 

73 

73 

443 

75 

— 

444 

43 

RCL 

44  5 

67 

67 

446 

65 

* 

447 

43 

RCL 

448 

56 

56 

449 

54 

) 

450 

54 

451 

54 

| 

452 

34 

SQRT  (X) 

453 

54 

) 

454 

55 

/ 

455 

53 

( 

456 

02 

2 

457 

65 

* 

458 

43 

RCL 

459 

71 

71 

460 

54 

) 

46  1 

54 

) 

462 

42 

STO 

46  3 

80 

80 

464 

43 

RCL 

46  5 

80 

80 

46b 

32 

X<  =  >  I 

46  7 

43 

RCL 

46  8 

51 

51 

469 

77 

2ND  X>= 

260 


470 

C4 

04 

47  1 

82 

82 

472 

43 

ECL 

473 

68 

68 

474 

99 

2ND 

PRT 

475 

43 

RCL 

476 

67 

67 

477 

99 

2ND 

FRT 

476 

98 

2ND 

ADV 

479 

6  1 

GTO 

480 

05 

05 

48  1 

65 

65 

482 

53 

{ 

48  3 

43 

RCL 

484 

76 

76 

485 

85 

+ 

486 

43 

ECL 

487 

75 

75 

488 

65 

* 

489 

43 

RCL 

490 

80 

80 

49  1 

85 

♦ 

492 

43 

RCL 

493 

74 

74 

494 

65 

* 

495 

4  3 

RCL 

496 

80 

80 

49  7 

45 

Y**X 

498 

02 

2 

499 

54 

) 

500 

99 

2ND 

PRT 

501 

98 

2ND 

ADV 

502 

53 

( 

50  3 

43 

RCL 

504 

66 

66 

505 

85 

♦ 

506 

43 

RCL 

507 

57 

57 

508 

85 

♦ 

509 

53 

( 

510 

43 

RCL 

51  1 

55 

55 

512 

75 

- 

513 

43 

RCL 

514 

68 

68 

515 

54 

) 

516 

85 

+ 

517 

53 

( 

518 

43 

RCL 

519 

79 

79 

520 

85 

+ 

521 

43 

RCL 

522 

78 

78 

523 

65 

* 

52a 

43 

RCL 

525 

80 

80 

526 

85 

* 

527 

43 

RCL 

528 

77 

77 

529 

65 

* 

530 

43 

RCL 

53  1 

80 

80 

532 

45 

Y**X 

533 

02 

2 

534 

54 

) 

535 

54 

[ 

536 

99 

2ND 

PRT 

537 

98 

2ND 

AEV 

538 

53 

( 

539 

43 

RCL 

54  0 

80 

80 

54  1 

85 

+ 

542 

53 

( 

543 

53 

544 

43 

RCL 

54  5 

60 

60 

546 

75 

- 

547 

43 

RCL 

548 

54 

54 

549 

85 

♦ 

550 

02 

2 

551 

00 

0 

552 

54 

) 

553 

55 

/ 

554 

43 

RCL 

555 

67 

67 

556 

65 

* 

557 

01 

1 

558 

00 

0 

559 

00 

0 

560 

00 

0 

561 

54 

) 

562 

54 

563 

99 

2ND 

FRT 

564 

98 

2ND 

ADV 

56  5 

43 

RCL 

566 

70 

70 

567 

92 

INV 

SE3 

~B AX§9~ 

SYM iol  TAiLE 

DUMP 

BUCKET 

CONTENTS 

REG 

TYP 

u  J  —  -  —  -  - 

AC  ^ 

HEFDEF 

66 

GLOBAL  VAR 

UD - 

A  C  _ 

LOG  1  0 

•  • 

QUICK  FN 

UO  ~ 

AQ  ^ 

GRID  A 

60 

GLOBAL  VAR 

UO 

1  A 

EL 

80 

GLOBAL  VAR 

1  U 

1  O  _ _ _ 

GRIDE 

58 

GL03AL  VAR 

1  J 

FP 

AES 

•  • 

•  • 

QUICK  FN 

QUICK  FN 

m  ------ 

i  a 

FN_FD 

70 

PARAMETER  FN 

IO 

i  a 

FI 

IP 

CSC 

•  • 

•  • 

•  • 

CONSTANT 

QUICK  FN 

QUICK  FN 

1  o 

AA 

SEC 

•  • 

QUICK  FN 

4U 

O/i 

DFCOR 

57 

GLOBAL  VAR 

ZL f  —  —  —  —  —  — 

LOG 

•  • 

QUICK  FN 

-T  -r 

zo  - 

GRIDN 

RGK 

RND 

59 

56 

10 

GLOBAL  VAR 

GLOBAL  VAR 

LONG  FN 

4.0 

->n  _  _ 

ACOS 

•  • 

QUICK  FN 

-jU 

MIL  RAD 

64 

GLOBAL  VAR 

262 


QUICK  FN 


COS 


COT 

•  • 

QUICK  FS 

HGDE  V 

63 

GLOBAL  VAR 

SIN 

•  • 

QUICK  FN 

OT 

6  1 

GLOBAL  VAR 

EXP 

•  • 

QUICK  FN 

LATDE  V 

62 

GLOBAL  VAR 

SQR 

.  . 

QUICK  FN 

ETRYA 

54 

GLOBAL  VAR 

INVOKE 

69 

GLOBAL  VAR 

ETP.YE 

52 

GLOBAL  VAR 

TGTRG 

67 

GLOBAL  VAR 

H  ACROSS 

5  1 

GLOBAL  VAR 

CHG4MAX 

47 

GLOBAL  VAR 

CHG5MAX 

48 

GLOBAL  VAR 

CHG7MAX 

49 

GLOBAL  VAR 

A04 

13 

GLOBAL  VAR 

CHG8MAX 

50 

GL03AL  VAR 

A  05 

22 

GLOBAL  VAR 

E04 

17 

GLOBAL  VAR 

A  14 

12 

GLOBAL  VAR 

TGT  A  Z 

68 

GLOBAL  VAR 

E05 

26 

GL03AL  VAR 

A15 

21 

GLOBAL  VAR 

E  14 

18 

GLOBAL  VAR 

C04 

16 

GLOBAL  VAR 

A  24 

1  1 

GLOBAL  VAR 

A  07 

3  1 

GLOBAL  VAR 

B  15 

27 

GLOBAL  VAR 

C05 

25 

GLOBAL  VAR 

A  25 

20 

GLOBAL  VAR 

B  24 

19 

GLOBrtL  VAR 

C  14 

15 

GLOBAL  VAR 

3TRYL 

55 

GLOBAL  VAR 

A08 

40 

GLOBAL  VAR 

E07 

35 

GLOBAL  VAR 

A  17 

30 

GL03AL  VAR 

E25 

28 

GLOBAL  VAR 

C  15 

24 

GLOBAL  VAR 

C  24 

14 

GLOBAL  VAR 

E  08 

44 

GLOBAL  VAR 

A  18 

39 

GLOBAL  VAR 

B  17 

36 

GLOBAL  VAR 

C07 

34 

GLOBAL  VAR 

APPENDIX  a 

TEST  PHOGBAM  NAME  HAPPING  PILE  (NAHEP) 


II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

TI-59  REGISTER  TO~NAME  MAPPING 

REG# 

BASIC  NAME 

1  1 

A  24 

12 

A  14 

13 

A  0  4 

14 

C24 

15 

C  1  4 

16 

CO  4 

17 

B  0  4 

18 

B  1  4 

19 

324 

20 

A  2  5 

2  1 

A  1  5 

22 

A05 

23 

C  2  5 

24 

C  1  5 

25 

C  0  5 

26 

305 

27 

315 

28 

325 

29 

A  2  7 

30 

A  17 

3  1 

A  0  7 

32 

C27 

C  1  7 

34 

C07 

1C 

307 

36 

317 

37 

327 

38 

A28 

39 

A  1  8 

40 

A08 

4  1 

C  2  8 

42 

Cl  8 

43 

C  0  8 

44 

308 

45 

B  1  8 

46 

328 

47 

CHG4MAX 

48 

CHG5MAX 

49 

CHG7MAX 

50 

CHG8MAX 

51 

H  AC  ROSS 

52 

3TRYE 

C  -3 

BTR  YN 

54 

BTRYA 

55 

BTRYL 

56 

RGK 

57 

DECOR 

58 

GRIDE 

59 

GRIDN 

60 

GRIDA 

61 

OT 

62 

L  AT  DEV 

63 

RGDEV 

265 


715 

51 

HACROSS 

0 

52 

BIRYE 

0 

53 

3TRYN 

0 

54 

BTRY  A 

800 

55 

3TEYL 

1.0 

5  6 

RGK 

0 

57 

DFCOR 

4000 

58 

GRIDS 

4000 

59 

GRIDN 

10 

60 

GRIDA 

4000 

61 

OT 

400 

62 

LATDEV 

10 

63 

RGDE  V 

1018.  5924 

64 

MILRAD 

1600 

65 

ROTCOR 

3200 

66 

REFDEF 

268 


t 


r 


5  e? 


f 


046 

65 

65 

C47 

75 

- 

048 

43 

HCL 

04  9 

61 

61 

050 

54 

) 

051 

55 

/ 

C52 

43 

ECL 

053 

64 

64 

05  4 

54 

) 

055 

39 

2ND 

CCS 

056 

54 

) 

057 

54 

) 

058 

42 

STO 

C59 

59 

59 

06  0 

53 

( 

06  1 

43 

ECL 

06  2 

58 

58 

063 

65 

+ 

06  4 

53 

( 

065 

43 

ECL 

066 

63 

63 

06  7 

65 

* 

06  8 

53 

( 

C69 

53 

070 

43 

ECL 

071 

65 

65 

072 

75 

— 

073 

43 

RCL 

074 

61 

61 

07  5 

54 

) 

076 

55 

/ 

C77 

43 

ECL 

073 

64 

64 

079 

54 

) 

080 

39 

2ND 

CCS 

C81 

85 

+ 

082 

43 

ECL 

083 

62 

62 

084 

65 

* 

C85 

53 

( 

086 

53 

( 

C  87 

43 

HCL 

088 

65 

65 

089 

75 

- 

09  0 

43 

ECL 

091 

61 

61 

092 

54 

) 

/ 

093 

55 

094 

43 

RCL 

095 

64 

64 

096 

54 

) 

097 

38 

2ND 

SIN 

098 

54 

) 

099 

54 

100 

42 

STO 

101 

58 

58 

102 

92 

INV 

SER 

103 

76 

2ND 

LBL 

104 

13 

C 

105 

53 

| 

106 

53 

/ 

107 

53 

/ 

108 

43 

F.CL 

109 

58 

58 

110 

75 

- 

11  1 

43 

RCL 

112 

52 

52 

113 

54 

> 

114 

45 

i**X 

270 


■>«U*kA 


. 

i 


• : 

■  < 


*  i 

:'i 

i 

■J 


m 


» 


9 

■ 


*4 


115 

02 

2 

116 

85 

♦ 

117 

53 

( 

118 

43 

RCL 

119 

59 

59 

120 

75 

— 

121 

43 

RCL 

122 

53 

53 

123 

54 

) 

124 

45 

Y**X 

125 

C2 

2 

126 

54 

) 

127 

34 

SQRT  (X) 

128 

54 

) 

129 

42 

STO 

130 

67 

67 

131 

53 

( 

132 

53 

133 

53 

( 

134 

43 

RCL 

135 

59 

59 

136 

75 

- 

137 

43 

RCL 

133 

53 

53 

139 

54 

) 

140 

55 

/ 

141 

43 

RCL 

142 

67 

67 

143 

54 

) 

144 

27 

2ND  INV 

145 

38 

2ND  SIN 

146 

65 

* 

147 

43 

RCL 

148 

64 

64 

149 

54 

) 

150 

42 

STO 

151 

68 

68 

152 

43 

RCL 

153 

58 

58 

154 

32 

X<=  >T 

155 

43 

RCL 

156 

52 

52 

157 

32 

X<  =  >  I 

158 

22 

INV 

159 

77 

2ND  X>=T 

160 

01 

01 

161 

74 

74 

162 

53 

( 

163 

43 

RCL 

164 

65 

65 

165 

75 

- 

166 

43 

RCL 

167 

68 

68 

168 

54 

) 

169 

42 

STO 

170 

68 

68 

171 

61 

STO 

172 

01 

01 

173 

65 

85 

174 

53 

1 

175 

03 

3 

176 

65 

* 

177 

43 

RCL 

173 

65 

65 

179 

65 

+ 

180 

43 

RCL 

181 

68 

68 

182 

54 

) 

183 

42 

STO 

27  1 


. -Av.y.-.v  v 

| 

rS 

Ui 

r  • 

t 

184 

68 

58 

r  - 

185 

92 

IS  V  SER 

t  • 

186 

76 

2ND  LEL 

rgj  — 

187 

14 

D 

iX) 

188 

43 

RCL 

f.- 

189 

67 

67 

I  "  • 

190 

32 

X<  =  >T 

P-* 

19  1 

43 

RCL 

P* 

192 

47 

47 

k*; 

193 

22 

INV 

K", 

194 

77 

2ND  X>=T 

tea 

195 

02 

02 

n 

196 

44 

44 

1* 

197 

£3 

( 

198 

43 

RCL 

199 

1 1 

11 

[*/ 

200 

42 

STO 

K  •*. 

201 

71 

71 

[’ 

L 

20  2 

43 

RCL 

a 

20  3 

12 

12 

P 

204 

42 

STO 

r-.' 

205 

72 

72 

L<  * 

206 

43 

RCL 

F" 

207 

13 

13 

[• 

208 

42 

STO 

tr* 

209 

73 

73 

b>I* 

210 

43 

RCL 

211 

14 

14 

r 

212 

42 

STO 

Fv 

213 

74 

74 

:•■ 

214 

43 

RCL 

h 

L* 

215 

15 

15 

t--. 

216 

42 

STO 

217 

75 

75 

213 

43 

RCL 

1  6^ 

219 

16 

16 

220 

42 

STO 

\y 

221 

7  6 

76 

222 

43 

RCL 

223 

19 

19 

t » 
n « 

224 

42 

STO 

v 

225 

77 

77 

£ 

226 

43 

RCL 

■ 

227 

18 

18 

p 

228 

42 

STO 

229 

78 

78 

ft 

230 

43 

RCL 

k 

23  1 

17 

17 

rr 

232 

42 

STO 

f-" 

233 

79 

79 

ll-a 

234 

53 

( 

235 

71 

SBR 

236 

15 

V 

k 

237 

54 

) 

238 

54 

^  * 

239 

42 

STO 

i  • 

240 

69 

69 

241 

61 

GTO 

jt-i 

24  2 

04 

04 

24  3 

16 

16 

244 

43 

RCL 

24  5 

67 

67 

246 

32 

X<=  >T 

247 

43 

RCL 

248 

48 

48 

249 

22 

INV 

M 

250 

77 

2ND  X>=T 

L?  .  * 

251 

03 

03 

25  2 

00 

00 

y 

k* 

l. 

Ml 


Lrf’-.*.,  i  — «'~L  ■  - 


I 


8 


•j 

5 

•1 

•i 

■N 

■I 


»  ,-w  ^  *•.  .“T  ,:,  V  \  T'”t 


25  3 

53 

{ 

254 

43 

RCL 

25  5 

20 

20 

256 

42 

STO 

257 

71 

71 

259 

43 

RCL 

259 

21 

21 

26  0 

42 

STO 

261 

72 

72 

262 

43 

RCL 

26  3 

22 

22 

26  4 

42 

STO 

26  5 

73 

73 

266 

43 

RCL 

267 

23 

23 

26  8 

42 

STO 

26  9 

74 

74 

270 

43 

RCL 

271 

24 

24 

272 

42 

STO 

273 

75 

75 

27  4 

43 

RCL 

275 

25 

25 

276 

42 

STO 

277 

76 

76 

278 

43 

RCL 

279 

28 

28 

280 

42 

STO 

281 

77 

77 

282 

43 

RCL 

283 

27 

27 

284 

42 

STO 

285 

78 

78 

286 

43 

RCL 

287 

26 

26 

288 

42 

STO 

289 

79 

79 

290 

53 

( 

291 

71 

SBR 

29  2 

15 

V 

29  3 

54 

) 

294 

54 

) 

295 

42 

STO 

29  6 

69 

69 

297 

61 

GTO 

298 

04 

04 

299 

16 

16 

300 

43 

RCL 

3C  1 

67 

67 

302 

32 

X<=  >T 

30  3 

43 

RCL 

30i 

49 

49 

305 

22 

INV 

306 

77 

211 D  X>= 

3Q7 

03 

03 

308 

56 

56 

309 

53 

( 

310 

43 

RCL 

31  1 

29 

29 

312 

42 

STO 

313 

71 

71 

314 

43 

RCL 

315 

30 

30 

316 

42 

STO 

317 

72 

72 

318 

43 

RCL 

319 

31 

31 

320 

42 

STO 

z2  1 

73 

73 

273 


J 


39  1 

46 

46 

39  2 

42 

ST 

0 

39  3 

77 

77 

39  4 

43 

RC 

L 

395 

45 

45 

396 

42 

ST 

0 

397 

78 

78 

398 

43 

RC 

L 

399 

44 

44 

400 

42 

ST 

0 

401 

79 

79 

40  2 

53 

( 

403 

71 

SB 

R 

404 

15 

E 

405 

54 

) 

406 

54 

) 

407 

42 

ST 

0 

40  8 

69 

69 

409 

61 

GT 

0 

410 

04 

04 

411 

16 

16 

412 

43 

RC 

m 

413 

67 

67 

414 

99 

2N 

D 

F3T 

415 

98 

2N 

D 

ADV 

416 

92 

IN 

V 

SER 

417 

76 

2N 

D 

LBL 

418 

15 

E 

419 

00 

0 

420 

42 

ST 

0 

421 

70 

70 

422 

53 

423 

53 

j 

424 

43 

RC 

425 

72 

72 

426 

94 

+/ 

— 

427 

85 

+ 

423 

53 

( 

429 

43 

RC 

43  0 

72 

72 

43  1 

45 

Y* 

*> 

C 

432 

02 

2 

433 

75 

- 

434 

53 

( 

435 

C4 

4 

436 

65 

it 

437 

43 

RC 

si 

43  8 

71 

71 

439 

65 

♦ 

440 

53 

( 

44  1 

43 

RC 

442 

73 

73 

443 

75 

- 

444 

43 

RC 

44  5 

67 

67 

446 

65 

* 

447 

43 

RC 

L 

448 

56 

56 

449 

54 

450 

54 

451 

54 

45  2 

34 

SQ 

RT  (X) 

45  3 

54 

) 

454 

55 

/ 

455 

53 

( 

456 

02 

2 

457 

65 

* 

453 

43 

RC 

459 

71 

71 

11-59  REGISTER  TO  SAME  MAPPING 


INPUT  DATA  TO  READ  SAPPING 


DATA 

REG 

NAME 

.  0133670 

1  1 

A24 

21.2691 

12 

A14 

105.7 

13 

AO  4 

.  0000  1499 

14 

C24 

. C663G 

15 

Cl  4 

.41 

16 

CO  4 

.77 

17 

BO  4 

.01314 

18 

B14 

.  00 C0 1 72 0 

19 

B24 

.0149331 

20 

A25 

24. 3439 

21 

A15 

64.7 

22 

AO  5 

.00001420 

23 

C25 

.07069 

24 

Cl  5 

.  06 

25 

C05 

1.26 

26 

B05 

. 01506 

27 

B15 

.00001678 

28 

B25 

.0173835 

29 

A27 

29.8741 

30 

A17 

2255. 2 

31 

AO  7 

■•00001668 

32 

C27 

.08487 

33 

Cl  7 

3.29 

34 

C07 

1.3 

35 

BO  7 

. 02713 

36 

E 1 7 

•  00C01306 

37 

327 

■.0182137 

38 

A28 

32.3731 

39 

A18 

4 107. 4 

40 

AO  8 

.  00  CO  1 66  8 

41 

C29 

.09272 

42 

Cl  8 

5.74 

43 

CO  8 

1. 36 

44 

B08 

.02891 

45 

318 

.00001410 

46 

B28 

5  70C 

47 

CHG4 MAX 

7000 

48 

CHG  5  MAX 

10800 

49 

CHG7MAX 

17600 

50 

CHG8MAX 

715 

51 

HACROSS 

0 

52 

BTRYE 

0 

53 

3TRYN 

0 

54 

BTRY  A 

800 

55 

BIRYL 

1.0 

56 

RGK 

0 

57 

DECOR 

im 

58 

59 

GRIDS 
GRID  N 

10 

60 

GRID  A 

400C 

61 

OT 

400 

62 

LAI DEV 

10 

63 

RGDEV 

1018. 5924 

64 

MILRAD 

1600 

65 

ROICOR 

3200 

66 

REFDEF 

28  1 


APPENDIX  P 

TEST  PROGRAM  LINKER  OUTPUT 


EAX59  PROGRAH  INSTRUCTIONS:  VERSION  1.0 


*  CONGRATULATIONS,  YOU  HAVE  JUST  COMPILED  A  BASIC  PROGRAM 

INTO  A  TI-59  PROGRAM.  IN  SO  DOING  IT  IS  VERY  POSSIELE 
THAT  YOUR  PROGRAM  IS  LARGER  THAN  THE  MEMORY  OF  THE 
CALCULATOR.  IF  THIS  IS  THE  CASE  THEN  THE  PROGRAM  HAS 
BEEN  SEGMENTED  AND  PROMPTING  CODE  INSERTED  TO  GUIDE 
YOUR  CALCULATOR  PROGRAM  DURING  ITS  EXECUTION.  THE  RE¬ 
MAINDER  OF  THIS  OUTPUT  CONSISTS  OF  TI-59  CODE  LISTINGS 
AND  OTHER  INFORMATION  TO  AID  YOU  IN  YOUR  PROGRAM 
EXECUTION. 

*  THE  FOLLOWING  DEFINITIONS  ARE  PROVIDED  AS  AN  AID  TO 

READING  THE  PROGRAM  LISTING  FILE. 

*  DEFINITIONS: 

*  MODULE:  A  MODULE  IS  DEFINED  TO  BE  ALL  THE  MEMORY 

DEDICATED  TO  PROGRAM  STEPS.  THE  SIZE  IS  VARI¬ 
ABLE  AND  IS  DEPENDENT  ON  THE  REGISTER  REQUIRE¬ 
MENT.  VALUES  RANGE  FROM  0  TO  239,  479  OR  719 
DEPENDING  ON  THE  AMOUNT  OF  REGISTERS  USED  BY 
THE  PROGRAM. 

*  CARD:  A  CARD  IS  DEFINED  TO  3E  ONE  MAGNETIC  CARD. 

A  CARD  HOLDS  4  80  PROGRAM  STEPS.  THESE  STEFS 
ARE  NOT  CONTIGUOUS  BUT  ARE  ARRANGED  ON  THE  TWO 
SIDES  OF  THE  CARD. 

*  SIDE:  A  SIDE  IS  ONE  HALF  OF  A  CARD.  IT  CONTAINS 

UP  TO  240  STEPS.  WHEN  ONE  SIDE  OF  A  CARD  IS 
READ  BY  THE  CALCULATOR  240  PROGRAM  STEPS  ARE 
FILLED  IN  MEMORY.  THESE  BLOCKS  OF  240  STEPS 
ARE  RSFEEED  TO  AS  "BANKS"  IN  THE  MANUFACTURER 
LITERATURE.  WHEN  LOADING  A  CARD  YOU  WILL  LOAD 
ONLY  BANK  NUMBER  1  AND/OR  2  FOR  PROGRAM  STEPS. 

*  PARTITION:  THIS  IS  DEFINED  TO  BE  THE  CURRENT 

SETTING  OF  CALCULATOR  MEMORY  AS  APPLIED  TO  THE 
A’.OUNT  CE  MEMORY  DEDICATED  TO  STORAGE  REGISTERS 
AND  THE  AMOUNT  DEDICATED  TO  PROGRAM  STEPS. 

WE  WILL  EE  DEALING  WITH  3  PARTITIONS.  THESE 
ARE: 

3  719.29 

4  479.59 

5  239.69 

FORMAT:  X  YYY.ZS 

WHERE  X  STANDS  FOR  PARTITION  NUMBER 

YYY  STANDS  FOR  PROGRAM  STEPS  (0-YYY) 

ZZ  STANDS  FOR  REGISTERS  (0-ZZ)  . 


TI  59  PROGRAM  LISTING  3Y  MODULE/CARD/SIDE: 


*  THE  FOLLOWING  IS  YOUR  PROGRAM  LISTING.  THE  PROGRAM  IS 

LISIET  ACCORDING  TO  MODULE  NUMBER  AND  ITS  ASSOCIATED 
CARDS  AND  CARD  SIDES. 

*  REFER  TC  THE  TI-59  PROGRAMMER'S  GUIDE  ON  HOW  TO  INPUT  A 

PROGRAM  AND  WRITE  IT  TO  MAGNETIC  CARDS. 

*  CAUTION:  ENSURE  THAT  THE  CORRECT  CALCULATOR  PARTITION 

IS  SET  BEFORE  INPUTTING  A  PROGRAM  AND  WRITING  TO 
MAGNETIC  CARDS. 

*  CAUTION:  ENSURE  THAT  YOU  DO  NOT  CONFUSE  BANK  NUMEERS 

WITH  CARD/MODULE  OR  SIDE  NUMBERS.  THE  NUMBERS  WHICH 
REFER  TO  THE  LISTING  ARE  AKIN  TO  A  VIRTUAL  ADDRESS 
AND  DC  NOT  REPRESENT  THE  ACTUAL  BANK  NUMBER. 

IF  IN  DOUBT,  REMEMBER  TO  USE  THE  TABLE  BELOW  TO 
TRANSLATE  VIRTUAL  TO  ACTUAL  BANK  NUMBERS. 

VIRTUAL  BANK  ACTUAL  BANK 

MODULE  # 

CARD1 

SIDE1 - BANK1 

MODULE  # 

C  ARE  1 

SIDE2 -  BANK2 

MODULE  # 

CARD2 

SIDE1  -  BANK3 


TI-59  LISTING 


*  MANUAL  RETURN  REGISTER  TOP  IS  81 

STORE  IN  REGISTER:  3 

*  PROGRAM  PARTITION  IS  23  9.  89 

*  PARTITION  NUMBER  IS  9 


♦MODULE  #  1 

CARE  #1 
SICE  #1 

000 

76 

2ND 

LBL 

00  1 

1  1 

A 

002 

71 

SBR 

003 

12 

3 

004 

68 

2ND 

NO? 

005 

71 

SER 

006 

1  3 

C 

007 

68 

2ND 

NOP 

008 

7  1 

SBR 

009 

14 

D 

010 

68 

2ND 

NOP 

01  1 

24 

CE 

012 

08 

3 

013 

08 

8 

283 


083 

53 

( 

084 

53 

( 

085 

43 

S  CL 

08  6 

65 

6  5 

087 

75 

- 

088 

43 

RCL 

089 

6  1 

61 

090 

54 

5- 

091 

55 

092 

43 

RCL 

093 

64 

64 

094 

54 

) 

095 

39 

2ND  COS 

096 

85 

+ 

097 

43 

RCL 

098 

62 

62 

099 

65 

X 

100 

53 

( 

101 

53 

( 

102 

43 

RCL 

103 

65 

65 

104 

75 

- 

105 

43 

RCL 

106 

6  1 

6  1 

107 

54 

5- 

108 

55 

109 

43 

RCL 

110 

64 

64 

1  1  1 

54 

) 

1  1  2 

38 

2ND  SIN 

113 

54 

) 

1  1  4 

54 

115 

42 

STO 

116 

58 

58 

1  17 

92 

INV  SBR 

118 

76 

2ND  LBL 

1  1  9 

1  3 

C 

120 

53 

121 

53 

/ 

122 

53 

/ 

123 

43 

RCL 

124 

58 

53 

125 

75 

- 

126 

43 

RCL 

127 

52 

52 

128 

54 

\**X 

129 

45 

130 

02 

2 

131 

85 

♦ 

132 

53 

( 

133 

43 

RCL 

134 

59 

59 

135 

75 

— 

136 

43 

RCL 

137 

53 

53 

138 

54 

*/**x 

139 

45 

140 

02 

2 

141 

54 

) 

142 

34 

SQRT  (X) 

143 

54 

) 

STO 

144 

42 

145 

67 

67 

146 

53 

( 

147 

53 

1 

148 

53 

{ 

149 

43 

RCL 

150 

59 

59 

151 

75 

- 

2S5 


y: 

L*. 


3  “ 

[• 

[C* 

:• 

- 

[ 


s 


h 


L' 

K 

k" 

k" 


152 

43 

RCL 

153 

53 

53 

154 

54 

) 

155 

55 

/ 

156 

43 

RCL 

157 

67 

6  7 

158 

54 

) 

159 

27 

2ND  INV 

160 

38 

2ND  SIN 

161 

65 

X 

162 

43 

RCL 

163 

64 

64 

164 

54 

) 

165 

42 

STO 

166 

68 

68 

167 

43 

RCL 

168 

53 

58 

169 

32 

X  <=>T 

170 

43 

RCL 

171 

52 

52 

172 

32 

X  <=>  T 

173 

22 

INV 

174 

77 

2ND  X>= I 

175 

01 

0  1 

176 

89 

39 

177 

53 

( 

178 

43 

RCL 

179 

65 

65 

180 

75 

- 

181 

43 

SCL 

182 

68 

68 

1  83 

54 

) 

184 

42 

STO 

185 

68 

68 

186 

6  1 

GTO 

187 

02 

02 

188 

00 

00 

189 

53 

( 

190 

03 

3 

191 

65 

X 

192 

43 

RCL 

193 

65 

65 

194 

85 

+ 

195 

43 

RCL 

196 

68 

68 

197 

54 

) 

198 

42 

STO 

199 

68 

68 

200 

92 

INV  SBR 

I 


>3 

p*hi 


it 

.  i 


•* 

-  J 


m 


M 


? 


r  y 

1  k  >... 
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♦MODULE  12 
CARE  #1 
SIDE  #1 


000 

76 

2ND  LBL 

00  1 

14 

D 

002 

43 

RCL 

003 

67 

67 

004 

32 

X  <=>  T 

005 

43 

RCL 

006 

47 

47 

007 

22 

INV 

008 

77 

2ND  X>=T 

009 

00 

0  0 

0  10 

58 

58 

01  1 

53 

( 

012 

43 

RCL 

013 

1  1 

1  1 

014 

42 

STO 

015 

7  1 

7  1 

0  16 

43 

RCL 

017 

12 

12 

018 

42 

STO 

019 

72 

72 

020 

43 

RCL 

02  1 

1  3 

13 

022 

42 

STO 

023 

73 

73 

024 

43 

RCL 

025 

14 

14 

026 

42 

STO 

027 

74 

74 

028 

43 

RCL 

029 

1  5 

15 

030 

42 

STO 

031 

75 

75 

032 

43 

RCL 

033 

16 

16 

034 

42 

STO 

035 

76 

76 

036 

43 

RCL 

037 

1  9 

19 

038 

42 

STO 

039 

77 

77 

040 

43 

RCL 

04  1 

1  8 

18 

042 

42 

STO 

04  3 

78 

76 

044 

43 

RCL 

045 

1  7 

17 

046 

42 

STO 

04  7 

79 

79 

048 

53 

( 

049 

7  1 

5  SR 

050 

15 

E 

051 

54 

) 

052 

54 

^  TO 

053 

42 

054 

69 

69 

055 

6  1 

GTO 

056 

0  1 

0  1 

057 

23 

23 

058 

43 

RCL 

059 

67 

67 

060 

32 

X<=>T 

06  1 

43 

RCL 

062 

48 

48 

063 

22 

INV 

064 

77 

2ND  X>=T 
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065 

01 

0  1 

066 

32 

32 

06  7 

53 

( 

068 

43 

RCL 

069 

20 

20 

070 

42 

STO 

071 

71 

71 

072 

43 

RCL 

073 

21 

21 

074 

42 

STO 

075 

72 

72 

076 

43 

RCL 

077 

22 

22 

078 

42 

STO 

079 

73 

73 

080 

43 

RCL 

08  1 

23 

23 

082 

42 

STO 

083 

74 

74 

084 

43 

RCL 

085 

24 

24 

086 

42 

STO 

087 

75 

75 

088 

43 

RCL 

089 

25 

25 

090 

42 

STO 

091 

76 

76 

092 

43 

RCL 

093 

28 

28 

094 

42 

STO 

095 

77 

77 

096 

43 

RCL 

097 

27 

27 

098 

42 

STO 

099 

78 

78 

100 

4  3 

RCL 

10  1 

26 

26 

102 

42 

STO 

103 

79 

79 

104 

53 

i  BR 

105 

71 

106 

15 

B 

107 

54 

) 

108 

54 

) 

109 

42 

STO 

110 

69 

69 

1  1  1 

5  1 

GTO 

1  12 

0  1 

01 

113 

23 

23 

1  1  4 

42 

STO 

1  15 

00 

0  0 

116 

24 

CE 

1  1  7 

03 

3 

1  1  8 

93 

• 

1  1  9 

00 

0 

120 

00 

0 

121 

30 

0 

122 

9  1 

R/S 

123 

42 

STO 

124 

00 

30 

125 

24 

CE 

126 

03 

3 

1  27 

93 

• 

128 

0  1 

1 

129 

01 

1 

130 

06 

6 

131 

91 

R/S 

132 

42 

STO 

133 

00 

00 
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$ 

:3 

4 

N 


t 


a 


4 


4 


134 

24 

CE 

135 

0  3 

3 

136 

93 

• 

137 

00 

0 

138 

00 

0 

139 

00 

0 

140 

9  1 

R/S 

14  1 

76 

2  HD  L3L 

142 

15 

E 

143 

42 

SIC 

144 

00 

00 

14  5 

69 

2ND  OP 

146 

23 

28 

147 

02 

2 

148 

72 

STO  2ND  IHD 

14  9 

08 

08 

150 

04 

4 

151 

93 

• 

152 

00 

0 

153 

00 

0 

154 

00 

0 

155 

91 

R/S 

♦MODULE  *  3 
CARD  #1 
SIDE  #1 


000 

43 

RCL 

001 

67 

67 

002 

32 

X  <=>T 

003 

43 

RCL 

004 

49 

49 

005 

22 

IHV 

006 

77 

2  HD  X>=T 

007 

00 

30 

008 

56 

56 

009 

53 

( 

010 

43 

RCL 

01  1 

29 

29 

012 

42 

STC 

013 

7  1 

71 

014 

43 

RCL 

015 

30 

30 

016 

42 

STO 

017 

72 

72 

018 

43 

RCL 

019 

31 

31 

020 

42 

STO 

021 

73 

73 

022 

43 

RCL 

023 

32 

32 

024 

42 

STO 

025 

74 

74 

026 

43 

RCL 

027 

33 

33 

028 

42 

STO 

029 

75 

75 

030 

43 

RCL 

031 

34 

34 

032 

42 

STO 

033 

76 

76 

034 

43 

RCL 

035 

37 

37 

036 

42 

STO 

037 

77 

77 

038 

43 

RCL 

039 

36 

36 

040 

42 

STO 

04  1 

78 

78 

042 

43 

RCL 

043 

35 

35 

044 

42 

5  TO 

045 

79 

79 

046 

53 

( 

047 

71 

SBR 

048 

15 

S 

049 

54 

) 

050 

54 

) 

051 

42 

STO 

052 

69 

b  9 

053 

6  1 

GTO 

054 

01 

01 

055 

16 

16 

056 

43 

RCL 

057 

67 

67 

058 

32 

X  <-  >T 

059 

43 

RCL 

060 

50 

50 

06  1 

22 

INV 

062 

77 

2ND  X>-T 

063 

01 

01 

064 

1  2 

12 

065 

53 

( 

066 

43 

RCL 

067 

38 

38 

068 

42 

5  TO 

069 

7  1 

71 

070 

43 

RCL 

071 

39 

39 

072 

42 

STO 

073 

72 

72 

074 

43 

RCL 

075 

40 

40 

076 

42 

STO 

077 

73 

73 

078 

43 

RCL 

079 

4  1 

41 

080 

42 

STO 

081 

74 

74 

082 

43 

RCL 

083 

42 

42 

084 

42 

STO 

085 

75 

75 

086 

43 

RCL 

087 

43 

43 

088 

42 

STO 

089 

76 

76 

090 

4  3 

RCL 

09  1 

46 

46 

092 

42 

STO 

093 

77 

77 

094 

43 

RCL 

095 

45 

45 

096 

42 

STO 

097 

78 

78 

098 

43 

RCL 

099 

44 

44 

100 

42 

STO 

101 

79 

79 

102 

53 

( 

103 

71 

SBR 

104 

15 

T 

•a 

105 

54 

) 

) 

106 

54 

107 

42 

STO 

108 

69 

69 

109 

6  1 

GTO 
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1  1  0 

01 

01 

1 1 1 

16 

16 

1  1  2 

43 

RCL 

1  13 

67 

67 

1  14 

99 

2ND 

PRT 

115 

98 

2ND 

ADV 

116 

42 

STO 

1  17 

00 

00 

118 

73 

RCL 

2ND 

1 3D 

119 

08 

08 

120 

69 

2ND 

OP 

121 

38 

38 

122 

91 

R/S 

123 

76 

2ND 

LBL 

124 

15 

E 

125 

42 

STO 

126 

00 

00 

127 

69 

2ND 

OP 

128 

28 

28 

129 

03 

3 

1  30 

72 

STO 

2ND 

IND 

131 

08 

08 

132 

04 

4 

133 

93 

• 

134 

00 

0 

135 

00 

0 

136 

00 

0 

137 

9  1 

a/s 

♦MODULE  *  4 
CAKE  #1 
SIDE  #1 


2ND  LBL 
E 
0 

STO 

70 


SCL 

72 

♦/- 

♦ 

3(CL 

72 

Y**X 

2 
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104 

43 

RCL 

105 

78 

78 

106 

65 

X 

107 

4  3 

RCL 

108 

80 

80 

109 

85 

+ 

110 

43 

RCL 

1  1  1 

77 

77 

112 

65 

X 

1 1  3 

43 

RCL 

1  1  4 

80 

80 

115 

45 

Y**X 

116 

02 

2 

117 

54 

) 

1 1  8 

54 

[ 

1  1  9 

99 

2ND  PRT 

120 

93 

2ND  ADV 

121 

53 

( 

1  22 

43 

RCL 

123 

80 

80 

124 

85 

+ 

125 

53 

( 

126 

5  3 

{ 

127 

43 

RCL 

128 

60 

60 

129 

75 

— 

130 

43 

RCL 

131 

54 

54 

132 

85 

+ 

133 

02 

2 

134 

00 

0 

135 

54 

) 

136 

55 

/ 

137 

43 

RCL 

138 

67 

67 

139 

65 

X 

140 

0  1 

1 

141 

00 

0 

142 

00 

3 

143 

0  0 

0 

144 

54 

145 

54 

[ 

146 

99 

2ND  PRT 

147 

98 

2ND  ADV 

148 

43 

RCL 

149 

70 

70 

150 

42 

STO 

151 

00 

00 

152 

73 

RCL  2ND  IND 

153 

03 

08 

154 

69 

2ND  OP 

155 

38 

38 

156 

91 

R/S 

TI-59  PROGRAM  SPECIFIC  INSTRUCTIONS: 


*  THE  FOLLOWING  INFORMATION  WILL  TELL  YOU  HOW  TO  RUN 

YOUR  PROGRAM. 

*  YOU  MUST  ENTER  YCUR  PROGRAM  MANUALLY  INTO  THE  CALCULATOR 

AND  WRITE  THE  PROGRAM  TO  MAGNETIC  CARDS.  THIS  STEP 
ONLY  NEEDS  TO  EE  ACCOMPLISHED  ONCE.  AFTER  THAI,  THE 
PROGRAM  IS  ENTERED  USING  THE  MAGNETIC  CARD  FACILITY 
OF  THE  CALCULATOR.  SEE  THE  MANUFACTURER'S  LITERATURE 
ON  ENTERING  A  PROGRAM  AND  WRITING  IT  TO  MAGNETIC 
CARDS.  YOU  WILL  NEED  TO  PARTITION  MEMORY. 
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*  HCW  TC  PARTITION  THE  MEMORY 

*  KEY  SEQUENCE: 

X 

2ND 

OP 

17 

*  X  IS  THE  PARTITION  NUMBER  GIVEN  IN  THE  LISTING  CF 

Y  CUR  PROGRAM. 

*  WHEN  TO  PARTITION  THE  MEMORY 

*  ONCE  BEFORE  FEADING  IN  CARDS. 

*  CNCE  BEFORE  MANUALLY  ENTERING  PROGRAM  IN  ORDER  TO 

WRITE  TO  CARDS. 

*  HCW  TC  START  AND  RUN  YOUR  PROGRAM 

*  TURN  ON  CALCULATOR 

*  PARTITION  CALCULATOR 

*  LCAD  ALL  MODULE  1  CARDS 

*  OPTIONAL  STEP:  IF  YOU  SELECTED  THE  MANUAL  DATA  INPUT 

DENOTED  IN  YOUR  BASIC  PROGRAM  BY  USING  THE  "DATA" 
AND  "READ"  STATEMENTS  THEN  YOU  MUST  MANUALLY  ENTER 
YCUR  DATA  INTO  THE  CALCULATOR  MEMORY.  THIS  IS 
DC NE  BY  REFERRING  TO  "INPUT  DATA  TO  READ"  TABLE 
PROVIDED  AT  THE  END  OF  THIS  LISTING.  MANUALLY 
ENTER  THE  GIVEN  DATA  INTO  THE  REGISTERS  USING  THE 
FOLLOWING  KEYSTROKES: 

DATA 

STO 


WHERE  XX  IS  THE  DESIRED  REGISTER  NUMBER. 

*  INITIALIZE  THE  MANUAL  SBR  RETURN  CONTROL  STACK  WITH 
THE  FOLLOWING  KEYSTROKES: 

XX 

STO 

08 

WHERE  XX  IS  THE  MANUAL  RETURN  REGISTER  STACK  TOP. 
(THIS  IS  GIVEN  WITH  THE  PROGRAM  LISTING  NEAR  THE 
PARTITION  INFORMATION.) 
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MOD. 


STANDS 


MAP  PROVIDED 
T  COS  RESPONDS 


dr 


*  PRESS  "A"  TO  START. 

*  5CLLOW  DISPLAY  PROMPTS. 

*  DEFINITIONS: 

*  RON-TIME  PROMPTS:  ARE  DEFINED  TO  BE  CALCULATOR 
PROMPTS  DISPLAYED  IN  THE  CALCULATOR  WINDOW 
IN  IH2  FCRM  OF  A  4  DIGIT  DECIMAL,  2  DIGIT 
INTEGER  OR  A  1  DIGIT  INTEGER.  EA*H  PROMPT 
IS  OUTLINED  BELOW: 

*  4  DIGIT  DECIMAL 

*  FORMAT:  X.  YYY 

*  X  STANDS  FOR  MODULE  NUMBER  (1-9) 

*  YYY  STANDS  FOR  STARTING  ADDRESS 

*  ACTIONS: 

*  LOAD  ALL  MODULE  X  CARDS. 

*  PRESS  FOLLOWING  KEY  SEQUENCE  TC 
INTIALIZE : 

RCL 

00 

GTO 

Y 

Y 

Y 

*  PRESS  R/S  TO  CONTINUE  IN  NEW  MOD. 

*  2  DIGIT  INTEGER 

*  FORMAT:  XX  WHERE  XX  STANDS  FOR  A 

REGISTER  NUMBER. 

*  ACTIONS: 

*  LOOK  UP  IN  REGISTER  MAP  PROVIDED 

THE  BASIC  NAME  THAT  CORRESPOND' 
TO  THE  XX  NUMBER. 

*  ENTER  THE  BASIC  VARIABLE  VALUE. 

*  PRESS  R/S  TO  CONTINUE  WITH  THE 

ENTERED  VALUE. 

*  1  DIGIT  INTEGER 

*  FORMAT:  X  WHERE  IS  A  MODULE  NUMBER. 

*  ACTIONS: 

*  LOAD  ALL  MODULE  X  CARDS. 

*  PRESS  FOLLOWING  SEQUENCE  TO 

INITIALIZE: 

RCL 

00 

INV 

S3R 

*  PRESS  R/S  TO  CONTINUE  IN  NEW  MOD. 

*  PAUSE  IN  DISPLAY 

*  AN  UNFORMATTED  DIGIT  FLASHES  IN  THE 

DISPLAY  BEFORE  BEING  DISPLAYED. 
THIS  IS  AN  ANSWER  THAT  CORRESPONDS 
TO  A  REQUESTED  ANSWER  IN  THE  BASIC 
PROGRAM  USING  THE  BASIC  PRINT 
STATEMENT.  THESE  ANSWERS  OCCUR  IN 
THE  SAME  ORDER  AS  THEY  WERE 
REQUESTED  IN  THE  BASIC  PROGRAM. 

*  ACTIONS:  NOTE  ANSWER  AND  PRESS  R/S. 

*  888  IN  DISPLAY 

*  SPECIFIC  PROMPT  THAT  INDICATES  THAT 

THE  PROGRAM  HAS  STOPPED  EXECUTION. 

*  ACTIONS:  IF  DESIRED  FIND  ANSWERS  IN 

THE  CALCULATOR  MEMORY  USING  THE 
"T 1-59  REGISTER  TO  NAME  MAPPING” 

AT  THE  END  OF  THE  INSTRUCTIONS. 

*  EXPECTED  CONTROL  FLOW  PROMPTS  BY  MODULE  FOLLOW: 


X  CARDS. 
SEQUENCE 


MOD. 


IN  THE 
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*  EXPECTED  PROMPTS  FOR  MODULE  #  1 

*  FORWARD  JUMP  CONTINUATION:  4  DIGIT  REAL  CODE. 

*  NONE 

*  SUBROUTINE  INVOKE:  4  DIGIT  REAL  CODE. 

*  2.000 

*  MANUAL  RETURN  FROM  A  SUBROUTINE:  1  DIGIT  CODE. 

*  NONE 

*  SEQUENTIAL  CONTINUATION:  4  DIGIT  REAL  CODE. 

*  NONE 

*  EXPECTED  PROMPTS  FOR  MODULE  #  2 

*  FORWARD  JUMP  CONTINUATION:  4  DIGIT  REAL  CODE. 

*  3.116 

*  3.00  0 

*  SUBROUTINE  INVOKE:  4  DIGIT  REAL  CODE. 

*  4.000 

*  MANUAL  RETURN  FROM  A  SUBROUTINE:  1  DIGIT  CODE. 

*  NONE 

*  SEQUENTIAL  CONTINUATION:  4  DIGIT  REAL  CODE. 

*  3.000 

*  EXPECTED  PROMPTS  FOR  MODULE  #  3 

*  FORWARD  JUMP  CONTINUATION:  4  DIGIT  REAL  CODE. 

*  NONE 

*  SUBROUTINE  INVOKE:  4  DIGIT  REAL  CODE. 

*  4.000 

*  MANUAL  RETURN  FROM  A  SUBROUTINE:  1  DIGIT  CODE. 

*  YES 

*  SEQUENTIAL  CONTINUATION:  4  DIGIT  REAL  CODE. 

*  NONE 

*  EXPECTED  PROMPTS  FOR  MODULE  #  4 

*  FORWARD  JUMP  CONTINUATION:  4  DIGIT  REAL  CODE. 

*  NONE 

*  SUBROUTINE  INVOKE:  4  DIGIT  REAL  CODE. 

*  NONE 

*  MANUAL  RETURN  FRCM  A  SUBROUTINE:  1  DIGIT  CODE. 

*  YES 

*  SEQUENTIAL  CONTINUATION:  4  DIGIT  REAL  CODE. 

*  NONE 
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INPUT  DATA  TO  READ  NAPPING 


DATA 

a  eg 

NAME 

.  0133670 

1 1 

A24 

21.2691 

12 

A14 

105.7 

13 

AO  4 

.0000  1499 

14 

C24 

.06630 

15 

Cl  4 

.41 

16 

CO  4 

.77 

17 

BO  4 

.01314 

18 

B14 

. 00001720 

19 

B24 

.  0149331 

20 

A25 

24.3439 

21 

A15 

64.7 

22 

AO  5 

.  00001420 

23 

C25 

.07069 

24 

Cl  5 

.06 

25 

C05 

1.26 

26 

B05 

.01506 

27 

B15 

.  00001678 

28 

325 

.0173835 

29 

A27 

29.8741 

30 

A 1  7 

2255.2 

31 

AO  7 

.0000  1668 

32 

C27 

.06487 

33 

Cl  7 

3.29 

34 

C07 

1.3 

35 

BO  7 

.02713 

36 

317 

.00001306 

37 

52  7 

.0182137 

38 

A28 

32.3731 

39 

A18 

4107. 4 

40 

A08 

. 00  CO  166  8 

41 

C28 

.09272 

42 

Cl  8 

5.74 

43 

COS 

1.36 

44 

B08 

.02891 

45 

318 

. 00001410 

46 

328 

5700 

47 

CHG4MAX 

7000 

48 

CHG5MAX 

10800 

49 

CHG7  MAX 

17600 

50 

CHG8MAX 

715 

51 

HACEOSS 

0 

52 

BTHYE 

0 

53 

3IRYN 

0 

54 

BTRYA 

800 

55 

BIRYL 

1.0 

56 

RGK 

0 

57 

DFCOR 
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TI-59  REGISTER  TO  NAME  MAPPING 

REG# 

3  A  SIC  NAME 

1  1 

A24 

12 

A14 

13 

A  0  4 

14 

C24 

15 

Cl  4 

16 

C  0  4 

17 

BO  4 

18 

B  1  4 

19 

B  2  4 

2  C 

A25 

21 

A  1  5 

22 

A  05 

23 

C  2  5 

24 

Cl  5 

25 

CO  5 

26 

B  05 

27 

B  1  5 

28 

B  25 

29 

A27 

30 

A  17 

3  1 

AO  7 

3  2 

C27 

33 

C  1  7 

34 

C  07 

35 

307 

36 

317 

37 

B27 

36 

A  2  8 

39 

A  18 

4  C 

A  0  8 

4  1 

C28 

42 

C  1  8 

43 

C  0  8 

44 

308 

45 

B  1  3 

46 

328 

47 

CHG4MAX 

48 

CHG5MAX 

49 

CHG7MAX 

50 

CHG8MAX 

5  1 

HACROSS 

52 

3  T  R  YE 

53 

3TRYN 

54 

3TR  YA 

55 

3TRYL 

56 

RGK 

57 

DFCOR 

56 

GRIDE 

59 

GRIDN 

60 

GRICA 

61 

OT 

6  2 

LATDEV 

63 

RGDEV 

64 

MILRAD 

65 

ROTCOR 

66 

REFDEF 

67 

TGTRG 

68 

TGTA2 

69 

INVOKE 

70 

?  N  FD 

71 

7  FN  PARAMETER) 

72 

(FN  PARAMETER; 

73 

(FN  PARAMETER) 
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(FN  PARAMETER) 
(FN  PARAMETER: 
(FN  PARAMETER 
I  FN  PARAMETER 
(FN  PARAMETER 
FN  PARAMETER) 
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